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Preface 



Fortran ii is a coding system with a language that 
closely resembles the language of mathematics. It is a 
system designed primarily for scientific and engineer- 
ing computations. Since this system is essentially prob- 
lem-oriented rather than machine-oriented, it provides 
scientists and engineers with a method of communica- 
tion that is more familiar, easier to learn, and easier to 
use than actual machine language. In addition, ma- 
chine language programs produced by the Fortran ii 
System are generally as efficient as those which might 
be written by an experienced programmer. 

This manual is a reference text for the 1620 Fortran 
ii Programming System; it should not be used as a 
Fortran primer. For general information about For- 



tran, refer to the IBM FORTRAN General Informa- 
tion Manual, Form F28-8074. For a list of literature 
applicable to the 1620 Data Processing System, refer to 
the IBM 1620 Bibliography, Form A26-5692. 

Machine Configuration and Feature Requirements 

The minimum machine configuration and feature re- 
quirements needed to use the 1620 Fortran n Pro- 
gramming System are as follows: 

• ibm 1620 Data Processing System with 40,000 
positions of core storage 

• ibm 1622 Card Read-Punch 

• Automatic Divide 

• Indirect Addressing 



IBM 1620 FORTRAN II Programming System 



The 1620 Fortran ii Programming System consists of 
two parts: the language, and the compiler. The lan- 
guage is composed of a number of types of statements 
that are used to define the problem being solved. The 
compiler is a program which translates the statements 
into 1620 machine language. 

The problem in Fortran ii language is called the 
source program; the 1620 machine language translation 
is called the object program. 

The Fortran ii language and the rules for writing 
source programs are described in the first part of this 
manual, while the compiler and its related functions 
are described in the section entitled compilation 
process. 



Language 

A 1620 Fortran ii source program consists of a number 
of statements. Each statement deals with one aspect of 
the problem; that is, it may cause data to be fed into 
the computer, calculations to be performed, decisions 
to be made, results to be printed, etc. 

Some statements do not cause specific computer 
action, but rather provide information to the compiler 
program. 

The 1620 Fortran ii statements are arranged into 
five groups as follows: 

• Arithmetic statements, which are used to specify 
the mathematical calculations to be performed. 

• Control statements, which are used to govern the 
sequence in which the statements will be executed. 

• Input/Output statements, which are used to read 
data into the program, or print or punch the re- 
sults of the program. 

• S pecification statements, which are used to pro- 
vide information about the data that the object 
program is to process. 

• Subprogram statements, which are used to define 
and use subprograms. 

The above statement types are explained in detail 
later in this manual. 

Coding Form 

1620 Fortran ii statements are written on a standard 
Fortran coding form (X28-7327) which is designed to 
organize the statements into the special format re- 



quired by the compiler program. All statements and 
comments of the source program are written on this 
form. Space is provided at the top of each page for the 
name of the program, date, etc. This information does 
not constitute part of the source program and is not 
punched into cards. 

The series of numbers ( 1, 5, 6, 7, 10, . . . , 72) across 
the top of the form indicates the card column into 
which the information is to be punched. 

Comments to explain the program are written in 
columns 2-72 of a line with a C in column 1. A com- 
ment line is not processed by the compiler but is listed 
when the source program cards are listed. 

Columns 2 through 5 are used for the statement 
number. Any number from 1 through 9999 may be 
used as a statement number. Statement numbers are 
used for cross reference within a program (see ex- 
planations of do and go to statements), or merely as 
a means of identifying statements. No two statements 
may have the same number. Statements need not be 
numbered in sequence. 

Column 6 of the initial line of a statement must be 
blank or zero. If a statement is too long to be written 
on one line, it can be continued on as many as four 
"continuation lines." Continuation lines are written by 
placing any character or any number from 1 through 9 
(zero allowed only for initial line) in column 6. The 
normal method is to number the initial line zero, the 
second line one (first continuation line), the third fine 
two, etc. A statement other than a comment statement 
may not consist of more than 330 characters (i.e., 5 
lines ) . 

The body of a statement is written in columns 7 
through 72. Blank columns for the most part are 
ignored by the compiler and may be used freely to 
improve the readability of the source program listing. 

Columns 73 through 80 are not processed and there- 
fore may contain any identifying information. 

FORTRAN Card 

To prepare a source program for use, the statement 
data is transferred from the coding form into cards. 
After the cards are punched, they should be verified to 
minimize clerical errors. 



Arithmetic Modes 

Quantities used in Fortran statements may be ex- 
pressed in either fixed-point mode or floating-point 
mode. Numbers expressed as integers ( whole numbers) 
are considered fixed point. Numbers expressed with a 
decimal point are considered floating point. Thus the 
numbers 3, 57, and 115 are fixed point numbers, while 
the numbers 1.72, 35.6, and 1.7772 are floating point 
numbers. 

In Fortran ii, fixed point and floating point numbers 
may be used, subject to the rules listed under arith- 
metic STATEMENTS. 

Floating Point Arithmetic 

Floating point arithmetic is a technique used to elimi- 
nate the complex programming required for correct 
placement of the decimal point in arithmetic opera- 
tions. Floating point numbers are represented in a 
standard format which specifies the location of the 
decimal point. With this method, quantities which 
range from minute fractions to large numbers can be 
handled by the computer. Floating point numbers are 
expressed as decimal fractions, times a power of ten. 
For example: 

3.14159 is expressed as .314159 x 10 1 
4800.0 is expressed as .48 x 10* 
0.0187 is expressed as .187 x 10 1 

The numeric part of the floating point number is called 
the mantissa; the power of ten is called the exponent. 



Constants, Variables and Subscripts 

Fortran ii provides a means of expressing numeric 
constants, variable quantities, and subscripted vari- 
ables. The rules for expressing these quantities are 
quite similar to the rules of ordinary mathematical 
notation. 

Constants 

A constant is any number which is used in computa- 
tion without change from one execution of the program 
to the next. A constant appears in numeric form in the 
source statement. For example, in the statement 

J = 3 + K 

3 is a constant, since it appears in actual numeric form. 
Two types of constants may be written in Fortran ii: 
fixed point, and floating point. 

Fixed Point Constant 

A fixed point constant is an integer consisting of 1 to 
10 numeric characters (see arithmetic precision). A 



preceding plus sign is optional for positive numbers. 
An unsigned constant is assumed to be positive. 

examples 

3 

+ 1 

-28987 

Floating Point Constant 

A floating point constant may be in either of two forms: 
1. Any number consisting of 1 to 28 decimal digits 
with a decimal point at the beginning, at the 
end, or between two digits (see arithmetic 
precision ) . A preceding plus sign is optional for 
positive numbers. Zeros to the left of the decimal 
point are permissible. 



examples 



17. 

5.0 
-.0003 

0.0 



2. An integral decimal exponent preceded by an E 
may follow a floating point constant. The magni- 
tude thus expressed must be between the limits 
of 10- 100 and 10 9B , or must be zero. 



EXAMPLES 



5.0E3 
5.0E + 3 
3.14E 



= (5.0xl0 3 ) 
= (5.0xl0 3 ) 
= (3.14x10°) 



Variables 

A Fortran variable is a symbolic name which will as- 
sume a value during execution of a program. This 
value may change either for different executions of 
the program or at different times within the program. 
For example, in the statement 

A = 3.0 + B 

both A and B are variables. The value of B will be 
assigned by a preceding statement and may change 
from time to time; the value of A will change whenever 
this computation is performed with a new value of B. 
As with constants, a variable may be in fixed point 
or floating point form. 

Fixed Point Variables 

A fixed point variable is named by using 1 to 6 alpha- 
betic or numeric characters (not special characters) of 
which the first must be I, J, K, L, M, or N. 



EXAMPLES 
I 

M2 
JOBNOl 

A fixed point variable can assume any integral value 
provided the magnitude is less than the maximum 
size as defined through the use of a control record as 
stated under akithmetic precision. (If not defined, 
the maximum size will be 5 decimal positions for fixed 
point numbers.) 

Floating Point Variables 

A floating point variable is named by using 1 to 6 
alphabetic or numeric characters (not special char- 
acters ) , of which the first is alphabetic but not I, J, K, 
L, M, or N. 

EXAMPLES 

A 

B7 

DELTA 

A floating point variable may assume any value ex- 
pressible as a normalized floating point number; i.e., 
zero or any number between lO" 100 and 10". The num- 
ber of mantissa characters may be from 2 to 28 (see 
arithmetic precision). If not defined, the maximum 
size will be 8 characters for the mantissa. 

Arithmetic Precision 

The precision of the quantities used in the calculation 
is an important consideration in most types of scientific 
computation. For example, the computation of 7.19 x 
3.14 would not be as precise as 7.19286 x 3.14159. 

In the Fortran ii System, the variable-field length 
capability of the 1620 is used to allow varying degrees 
of precision from one program to another. Floating 
point precision, denoted in this publication as /, may 
be varied from 2 to 28 places; fixed point precision, 
denoted by k, may be varied from 4 to 10 places. 

The precision of the values may be specified by the 
use of a control card which precedes the source pro- 
gram. This card is described in the section entitied 
source program control card. 

Values for / and k must be the same for subpro- 
grams called by the main program. 

Subscripts 

An array is a group of quantities. It is often advan- 
tageous to be able to refer to this group by one name 
and to refer to each individual quantity in this group 



in terms of its place within the group. For example, 
assume the following is an array named next: 

15 
12 
18 
42 
19 

If it were desired to refer to the second quantity in 
the group, the ordinary mathematic notation would 
be next 2 . In Fortran this becomes 

NEXT (2) 

The quantity in parentheses is called a subscript. Thus 

NEXT ( 2 ) has the value of 12 
NEXT ( 4) has the value of 42 

The ordinary mathematical notation might be nexti, 
to represent any element of the array next. In For- 
tran, this is written 

NEXT (I) 

where I equals 1, 2, 3, 4, or 5. A program may also 
use 2- or 3-dimensional arrays. For example, the fol- 
lowing is a 2-dimensional array named mrate. 

Column 1 Column 2 Column 3 



Row 1 


14 


12 


8 


Row 2 


48 


88 


4 


Row 3 


29 


25 


17 


Row 4 


1 


3 


43 



To refer to the quantity in Row 4, Column 2, the 
Fortran statement would be written as mrate (4,2). 

The value of mrate (4,2) is 3. 
The value of mrate ( 3,3 ) is 17. 

Thus, subscripts are positive fixed point quantities 
whose values determine the member of the array to 
which reference is made. 

GENERAL FORM 

If v represents any fixed point variable and c (or c') 
represents any fixed point constant, then a subscript is 
an expression in one of the following forms. 

v, c, v +c, v — c, c°v, 
c*v +c', or c*v — c' 

( The symbol * denotes multiplication.) 



EXAMPLES 



I 

3 

MU+2 

5*1-2 



In a subscript the variable itself must not be sub- 
scripted. 

Subscripted Variables 

A fixed or floating point variable may be subscripted 
by enclosing up to three fixed point subscripts in par- 
entheses to the right of the variable. 



EXAMPLES 



A(I) 
K(3) 
BETA (5*J 



-2,K+2,L) 



The commas separating the subscripts are required 
punctuation. Note that subscript arithmetic may take 
place as shown in the third example above. For in- 
stance, if J is equal to 20, the first subscript will be 98. 
The value of a subscript (including the added or 
subtracted constant, if any) must be greater than 
zero but not greater than the corresponding array 
dimension. Each subscripted variable must have the 
size of its array (i.e., the maximum values which its 
subscripts can attain) specified in a dimension state- 
ment preceding the first appearance of the variable 
in the source program. ( dimension statements are 
described later.) 

Arrangement of Arrays in Storage 

Arrays are stored "column-wise," with the first of their 
subscripts varying most rapidly, and the last varying 
least rapidly. Arrays which are 1-dimensional are sim- 
ply stored sequentially. A 2-dimensional array named 
A would be stored sequentially in the order A, 

\,v ' ' ■ ' ^m,i> \,z' ^2,2' • • • ' \f,N- ^ 3-dimensional 
array named T would be stored in the order 
T T T T T T T 

1,1,1' 2,1,1' 3,1,1' • • ' ' ^M.l.P 1,2,1' - ' •' 'm.NJ' i l,12' 

T 

2,1,2' - ' 

The storage of arrays is in ascending order; i.e., the 
elements are stored sequentially in locations with 
ascending addresses. 



Expressions 

An expression in Fortran language is any sequence 
of constants, variables (subscripted or not subscript- 
ed), and functions (explained later), separated by 
operation symbols, commas, and parentheses, which 
comply with the rules for constructing expressions. 
Expressions appear on the right-hand side of arith- 
metic statements. 



In arithmetic-type operations, the following opera- 
tion symbols are used: 

+ addition 
— subtraction 
* multiplication 
/ division 

** exponentiation (i.e., raising to 
a power) 

Rules for Constructing Expressions 

Since constants, variables, and subscripted variables 
may be fixed point or floating point quantities, ex- 
pressions may contain either fixed point or floating 
point quantities; however, the two types may appear 
in the same expression only in certain ways. 

1. The simplest expression consists of a single con- 
stant, variable, or subscripted variable. If the 
quantity is an integer quantity, the expression 
is said to be in the fixed-point mode. If the 
quantity is a floating point quantity, the expres- 
sion is said to be in the floating-point mode. 



EXPRESSION 



3.0 



I(J) 



A(J) 



TYPE OF 
QUANTITY 

Fixed Point 

constant 
Floating Point 

constant 
Fixed Point 

variable 
Floating Point 

variable 
Fixed Point 

subscripted 

variable 
Floating Point 

subscripted 

variable 



mode of 

expression 

Fixed Point 
Floating Point 
Fixed Point 
Floating Point 
Fixed Point 



Floating Point 



In the last example, note that the subscript, which 
must be a fixed point quantity, does not affect 
the mode of the expression. The mode of the 
expression is determined solely by the mode of 
the quantity itself. 

2. Exponentiation of a quantity does not affect the 
mode of the quantity; however, a fixed point 
quantity may not be given a floating point ex- 
ponent. The following are valid: 



A**I 

A**B 



Fixed Point 
Floating Point 
Floating Point 



The following is not valid: 

I* "A (Violates the rule that a 

fixed point quantity must not 
have a floating point exponent) 

Note: The expression A**B**C is not permitted. 
It must be written A«*(B*«C) or (A»*B)**C, 
whichever is intended. 

Quantities may be preceded by a + or a — or 
connected by any of the operators (+,—,*,/, 
**) to form expressions, provided: 

a. No two operators appear consecutively. 

b. Quantities so connected are all of the same 
mode. (Exception: floating point quantities 
may have fixed point exponents.) 

The following are valid: 

-A+B 
B+C-D 

I/J 

The following are not valid expressions: 

AH B (must be written as A+(— B) 

A+I (variables are of different modes) 

3J (must be written as 3 * J if multipli- 

cation is intended) 

The use of parentheses in forming expressions 
does not affect the mode of the expression. Thus, 
A, (A), and (((A))) are all floating point 
expressions. 

Parentheses may be used to specify the order of 
operations in an expression. Where parentheses 
are omitted, the order is taken to be from left 
to right as follows: 



ORDER 

1 
2 
3 



SYMBOL 



OPERATION 



* * Exponentiation 

* and / Multiplication and Division 
+ and — Addition and Subtraction 



For example, the expression 

A+B*C/D+E**F-G 
will be taken to mean 

B*C 



A + 



D 



+E F -G 



Using parentheses, the expression could be written 

(A+B)*C/D+E**F-G 



which would be taken to mean 

< A + D B )* C + E*_G 

A valid expression will be evaluated when the object 
program is executed. An invalid expression may re- 
sult in an error message from the Fortran ii compiler 
or may result in inaccurate object program results. 



Arithmetic Statements 



GENERAL FORM 



B 



where A is a variable (subscripted or not subscripted) 
and B represents an expression. 

EXAMPLE 

Q = K+1 

A(I) =2(1) +SINF(C(I)) 

The numeric calculations to be performed in the 
object program are defined by arithmetic statements. 
Fortran arithmetic statements closely resemble con- 
ventional arithmetic formulas. They contain a variable 
to be computed, followed by an equal ( = ) sign, fol- 
lowed by an arithmetic expression. In Fortran lan- 
guage, the equal sign means "is to be replaced by" 
rather than "is equivalent to." For example, the arith- 
metic statement 

Y = N -LIMIT (J -2) 

means that the value in the storage area assigned to 
Y is to be replaced by the value of N —LIMIT (J —2). 
The equal sign description can be emphasized more 
with the example of 

1 = 1+1 

which means that the variable I is to be replaced with 
its old value plus one. 

The result of the expression is stored in fixed point 
form if the variable to the left of the equal sign is a 
fixed point variable; it is stored in floating point form 
if the variable is a floating point variable. 

If the variable to the left is in fixed point form and 
the expression to the right is in floating point form, 
the result is first computed in floating point, then 
truncated (the fractional value is dropped) and con- 
verted to a fixed point number. Thus, if the result of 
an expression is 3.872, the fixed point number stored 
is 3, not 4. Likewise, the statement 

J = A/B 



produces a result of 1 if the value of A is 7, and the 
value of B is 4. 

If the variable to the left is in floating point form 
and the expression to the right is in fixed point form, 
the expression will be computed in fixed point and 
then converted to floating point before it is stored as 
the new value of the variable. 

EXAMPLES MEANING 

A = B Store the value of B in A. 

I = B Truncate B to an integer, convert to 

fixed point, and store in I. 
A = I Convert I to floating point, and store 

in A. 
A = 3.0*B Replace A with 3 times B. 
A = I*B Not permitted. The expression is 

mixed; i.e., contains both fixed 

point and floating point variables. 
A = 3 * B Not permitted. The expression is 

mixed. 



Control Statements 

The second class of Fortran ii statements is com- 
prised of control statements that enable the program- 
mer to state the flow of the program. Normally, state- 
ments may be thought of as being executed sequen- 
tially; that is, after one statement has been executed, 
the statement immediately following is executed. How- 
ever, it is often undesirable to proceed in this man- 
ner. The following statements may be used to alter 
the sequence of a program. 

GO TO Statement (Unconditional) 

This statement interrupts the sequential execution of 
statements, and specifies the number of the next state- 
ment to be performed. 

GENERAL FORM 

GO TO n 
where n is a statement number. 

EXAMPLES 

GO TO 1009 
GO TO 3 

Computed GO TO 

This statement also indicates the statement that is to 
be executed next. However, the statement number 
that the program is transferred to can be altered dur- 
ing the program. 



GENERAL FORM 

GOTO (n!,n 2 , . . ,n,„),i 

where n,, n 2 . . , n m are statement numbers and i is 
a non-subscripted fixed point variable. 

The parentheses enclosing the statement numbers, 
the commas separating the statement numbers, and 
the comma following the right parenthesis are all re- 
quired punctuation. 

This statement causes transfer of control to the first, 
second, third, etc., statement in the list depending on 
whether the value of i is 1, 2, 3, etc. 

The variable i must never have a value greater than 
the number of items in the list. 



EXAMPLES 



GO TO (3, 4, 5), L 



GOTO (4, 4, 5, 2), J 



MEANING 

If L is 1, transfer to 

statement 3. 
If L is 2, transfer to 

statement 4. 
If L is 3, transfer to 

statement 5. 
If J is I or 2, transfer 

to statement 4. 
If J is 3, transfer to 

statement 5. 
If J is 4, transfer to 

statement 2. 



Further examples of the Computed go to and the 
Unconditional go to statements are illustrated below: 



p— C FO» COMMENT 


l>..M.IN t 

NuwetR 
1 


; FORTRAN STATEMENT 

' 10 IS 50 15 30 ii .0 IS 




..,..., 




4=3.., . . , , 




B.'A., ....... ,....,....,... , , 




C'.5.-i ...... , , . . , 




O.O.-i ...... 


. . .1 


K:K*.l. ....... . , . . . , .... 




60 TO. (1.0„ 20,30) ,K ,,,,., 




. . i 




....,...,,.,, 


. . .30 


F.'.A-,B .,.,,,,, 




GO TO 12 , . . . . , . .... .... 


20 


£.-.A-,C 




GO .TO. J. . , . , 


10 


D-B-.C . , 




GO TO 1. .......... . . , 




. , i . , 




., . . i . , 


. 12 









In the example, D, E, and F are computed in that 
order, and the program is transferred to statement 12. 
This is a simplified example and if these were the only 
computations in the program, the programmer would 
simply list the arithmetic statements to compute D, E, 
and F in the desired order without using the Com- 
puted go to statement. 

IF Statement 

This statement permits the programmer to change the 
sequence of statement execution depending upon the 
value of the arithmetic expression. 

GENERAL FORM 

IF (a)n u n 2 , n 3 

where a is an expression, and n l5 n 2 , n 3 are statement 
numbers. 

The expression must be enclosed in parentheses and 
the statement numbers must be separated by commas. 
The expression may be in either fixed or floating 
point mode. 

Control is transferred to statement number n 1; n 2 , n 3 
depending on whether the value of a is less than, 
equal to, or greater than zero, respectively. 

EXAMPLE 

IF(A-B) 10,5,7 

which means "If the value of A minus B is less than 
zero, transfer to statement 10. If the value of A minus 
B is equal to zero, transfer to statement 5. If the value 
of A minus B is greater than zero, transfer to state- 
ment 7." 

Suppose a value, X, is being computed. Whenever 
this value is negative or positive, it is desired to pro- 
ceed with the program. Whenever the value is zero, 
an error routine is to be followed. This may be coded 
as: 



I C FOR COMMfNT 


lsi*I(M(Nl 

NUMlEI 

1 s 


FORTRAN STATEMENT 

' 10 IS 20 3J 30 35 .0 .5 








X'C.S,+ C/F;»S)-z/c . . . . . ........ 




If (X) 1.0, ,4.0, JO. .......... . , 


to 


'. . . 1 . . . . 1 . . . . i . . . . i .... i .... i .... t 










40 


(£flRO* RQUTiNE) 

'. . . I . . . . I . . . . i . . . i ................... . 



IF (SENSE SWITCH) Statement 

This statement permits the program to transfer to a 
particular statement depending on the setting of any 
one of the four Console Program switches. 



GENERAL FORM 



IF (SENSE SWITCH i) n 1; n 2 

where i is the number of one of the Console Program 
switches, and n l5 n 2 are statement numbers. 

The parentheses enclosing the words sense switch, 
and the commas separating the statement numbers 
are required punctuation. 

The program transfers to statement number nj 
when the designated Program switch is on, and to 
statement number n 2 when it is off. 



EXAMPLE 



IF (SENSE SWITCH 3) 14, 10 

which means, "If Sense Switch 3 is on, transfer to 
statement 14; otherwise, transfer to statement 10." 



DO Statement 



GENERAL FORM 



DOni = mum, 

or 
DO n i = mi, m 2 , m 3 



where n is a statement number, i is a non-subscripted 
fixed point variable, and m 1; m 2 and m 3 (none of 
which may be zero) are either unsigned fixed point 
constants or non-subscripted fixed point variables. If 
m., is not stated, it is understood to be 1. 

EXAMPLES 

DO 30 J = 1^10 
DO 30 J = 1, K, 3 

The do statement is a command to repeatedly exe- 
cute the statements that follow, up to and including 
the statement with statement number n. In other 
words, a do statement forms a program loop. 

The statements are executed with i = m t the first 
time; for each succeeding execution, i is increased 
by m 3 . After the statements have been executed with 
i equal to m 2 ( or as near as possible without exceed- 
ing m 2 ), control passes to the statement following the 
last statement in the range of the do. 



DO Range 

The range of a do is that set of statements which are 
executed repeatedly; i.e., it is the sequence of con- 
secutive statements immediately following the do, up 
to and including the statement numbered n. 

DO's Within OO's 

There may be other do statements among the state- 
ments in the range of a do. When this is so, the fol- 
lowing rule must be observed. 

If the range of a DO includes one or more other 
DO's, then all of the statements in the range of the 
latter must also be in the range of the former. 

A set of do's satisfying this rule is called a "nest of 
do's." This rule is illustrated in the drawing below. 
(Brackets are used to illustrate the range of a do). 
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The range of the do is statement 11, and the index 
is I. The do sets I to 1 and control passes into the 
range. The value of 1 .'* M(l) is computed, converted 
to floating point and stored in location A(l). Since 
statement 11 is the last statement in the range of the 
do, and the do is unsatisfied, I is increased to 2 and 
control returns to the beginning of the range, (which 
is statement 11). The value of 2 * N( 2) is then com- 
puted and stored in location A(2). The process con- 
tinues until statement 11 has been executed with 
1 = 10. Since the do is then satisfied (mjrmj), 
control passes to statement 12. 

Transfer of Control Within a DO 

Transfers of control from and into the range of a do 

are subject to the following rule: 

No transfer is permitted into the range of any DO 
from outside its range. Thus, 1, 2, and 3 are allowable 
transfers in the drawing below, but 4, 5, and 6 are not. 
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DO index 

The index of a do statement is the fixed point variable 
i, which is controlled by the do in such a way that its 
value begins at m 1; and is increased each time by m 3 , 
up to, but not including the value which exceeds m 2 . 
Throughout the range, the i-value is available for 
computation, either as an ordinary fixed point variable 
or as the variable of a subscript. After the last execu- 
tion of the range, the do is said to be "satisfied." 

Suppose for example, that control has reached 
statement 10 of the program: 

10 DO 11 I = 1, 10 

11 A(I) =1 • N (I) 
12 



Preservation of Index Values. When control leaves 
the range of a do in the ordinary way (i.e., when 
the do becomes satisfied and control passes on to 
the next statement after the range), the exit is said 
to be a normal exit. After a normal exit from a do 
occurs, the value of the index controlled by that do 
is not defined, and the index cannot be used again 
until it is redefined. However, if the exit occurs by 
virtue of a transfer out of the range, the current 
value of the index remains available for any sub- 
sequent use. If the exit occurs because of a transfer 
which is in the ranges of several do's, the current 
values of all indexes controlled by those do's are 
preserved for any subsequent use. 



Exits. When a call statement (see call statement) 
is executed in the range of a do, care must be taken 
that the called subprogram does not alter the do 
index or indexing parameters. This applies as well 
when a Fortran function is called for in the range 
of a do. 

Restrictions on Statements in the Range of a DO. 
A statement which redefines the value of the index 
or of any of the indexing parameters (m's) is the 
only type of statement not permitted in the range 
of a do. In other words, the indexing of a do loop 
must be completely set before the range is entered. 
The first statement in the range of a do must not be 
a non-executable statement, such as end, continue, 
and format statements. Also, a do loop cannot end 
with a transfer statement. 

CONTINUE Statement 

continue is a dummy statement which results in no 
instructions in the object program. It is most fre- 
quently used as the last statement in the range of a 
do to provide a transfer address for if and go to 
statements that are intended to begin another repeti- 
tion of the do loop. 



example 



CONTINUE 



As an example of a program which requires a 
continue, consider the table search: 



examples 

PAUSE 
PAUSE 33333 

This statement halts the machine. Pressing the Start 
key causes the program to resume execution of the 
object program with the next statement. In a pause n 
statement, where n is a 5-digit number within the 
range of valid 1620 addresses, the n can be displayed 
on the 1620 console in OR-2. 

STOP Statement 

general form 

STOP or STOP n 
where n is an unsigned fixed point constant. 

examples 

STOP 
STOP 33333 

This statement causes a halt in such a way that press- 
ing the Start key has no effect. Therefore, in contrast 
to pause, this statement is used where a terminal, 
rather than a temporary stop, is desired. When this 
statement is executed, the message "stop" is typed on 
the console typewriter, and n can be displayed as in a 
pause n statement. 



END Statement 



10 DO 12 I = 1, 100 

IF (ARG -VALUE (I)) 12, 20, 12 

12 CONTINUE 

13 ... 



GENERAL form 

END or END (I 1; I 2 , I 3 , I«, I.) 
where I is 0, 1, or 2. 



This program causes a scan of the 100-entry value 
table until it finds an entry that equals the value of 
the variable arg, whereupon it exits to statement 20 
with the value of I available for fixed point use; if no 
entry in the table equals the value of arg, a normal 
exit occurs to the statement (13) following the 
continue. 

PAUSE Statement 

GENERAL FORM 

PAUSE or PAUSE n 
where n is an unsigned fixed point constant 



EXAMPLES 

END 

END (1,2,0,1,1) 

This statement differs from the previous control state- 
ments in that it does not affect the flow of control in 
the object program being compiled. It applies to the 
Fortran ii compiler during compilation. An end state- 
ment will generate a halt and branch in the object 
program. The statement end (I 1; I 2 , I 3? I*, Is) is ac- 
ceptable; however, the I's specified are meaningless 

in 1620 FORTRAN n. 

The end statement must be the last statement 
(physically) of the source program. 



Input/Output Statements 

Input statements are used to read data into core stor- 
age and output statements are used to print or punch 
data. The read, accept, accept tape, punch, punch 
tape, print, and type statements require the use of 
the format statement which is described in the section 
entitled specification statements. 

Specifying Lists of Quantities 

The input/output statements that call for transmission 
of data must include an ordered list of the quantities 
to be transmitted. The listed order must be the same 
as the order in which the words of information exist 
(for input), or the desired order for the output. 

The formation and meaning of a list is best de- 
scribed by an example. Assume that the value of K 
has been previously defined. 

A,B(3),(C(I),D(LK),I = 1,10), 
((E(I,J),I = 1,10,2),F(J,3),J = 1,K) 

If this list is used with an output statement, the infor- 
mation will be written on the output medium in this 
order: 

A, B(3), C(l), D(l, K), C(2), D(2, K), . ., 
C(10), D(10, K), E(l, 1), E(3,l), . . . , E (9,1), 
F(l,3), 

E(1,2),E(3,2),...,E(9,2),F(2,3), 

E(1,K),E(3,K),...,E(9,K),F(K,3) 

Similarly, if this list is used with an input statement, 
the successive values, as they are read from the ex- 
ternal medium, are placed into core storage in the 
indicated order. The list reads from left to right with 
repetition for variables enclosed within parentheses. 
Only variables, not constants, may be listed. 

If such a list is used, the execution is exactly that 
of a do loop. It is as though each opening parenthesis 
(except subscripting parentheses) were a do, with 
indexing given immediately before the matching clos- 
ing parenthesis, and with the do range extending up to 
that indexing information. The order of the above list 
can thus be considered the equivalent of the following 
"program": 

1. OUTPUT A 

2. OUTPUT B(3) 

3. DO 5 I = 1, 10 

4. OUTPUT C(I) 

5. OUTPUT D(I, K) 

6. DO 9 J = 1, K 

7. DO 8 1 = 1, 10, 2 

8. OUTPUT E (I, J) 

9. OUTPUT F (J, 3) 



Note that indexing information, as in do's, consists of 
three constants or fixed point variables, and that the 
last of these may be omitted, in which case it is 
assumed to be 1. 

For a list of the form K, A(K) or of the form K, 
(A(I), 1 = 1, K), where an index or indexing para- 
meter itself appears earlier in the list of an input state- 
ment, the indexing will be carried out with the newly 
read-in value. 

Input/Output in Matrix Form 

As outlined in a previous section, Fortran ii treats 
variables according to conventional matrix practice. 
Thus, the input/output statement, 

READ1,( ( A(I,J),I = 1,2),J = 1,3) 

causes the reading of I times J (in this case, 2 times 3) 
items of information. The data items are read into 
storage in the same order as they are found on the input 
medium. 

Input/Output of Entire Matrices 

When input or output of an entire matrix is desired, an 

abbreviated notation may be used for the list of the 

input/output statement; only the name of the array 

need be given and the indexing information may be 

omitted. 

Thus, if A has previously been listed in a dimension 
statement, the statement, 

READ 1, A 

is sufficient to read in all elements of the array. The 
elements of the array are stored in successively higher 
storage locations. (If A has not previously appeared 
in a dimension statement, only the first element would 
be read in.) 

Automatic Fix/Float 

During execution of input/output statements, it is 
permissible to read a fixed point argument into a float- 
ing point field or a floating point argument into a fixed 
point field, and to write from a floating point field in a 
fixed point format or from a fixed point field in floating 
point format. During reading, the format specification 
dictates the data conversion, and the list designation 
controls the mode of storing the argument. During 
writing, the format specification dictates the mode of 
the field which is printed or punched. 

READ Statement 

The read statement is used to read data into core 
storage from the 1622 Card Read-Punch. 
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GENERAL FORM 



EXAMPLE 



READ n, List 



where n is the statement number of a format state- 
ment and List is a list of the quantities to be read. 

EXAMPLES 

READ 8, A, B, C 

READ 211, VOLT (I), OHM (J) 

The read statement causes data to be read from a 
card and the quantities from the card to become the 
values of the variables named in the list. Successive 
cards are read until the complete list has been "satis- 
fied"; i.e., all data items have been read, converted, 
and stored in the locations specified by the list of the 
read statement. The format statement to which the 
read refers, describes the arrangement of information 
on the cards and the type of conversion to be made. 



ACCEPT20,A,B,C,D(3) 



The accept statement causes the object program to 
return the carriage of the console typewriter to await 
the entry of data. The information is entered in 
accordance with the format statement until the com- 
plete list has been satisfied. 

PUNCH Statement 

The punch statement is used to cause data to be 
punched out in cards by the 1622 Card Read-Punch. 



general form 



PUNCH n, List 



where n is the statement number of a format state- 
ment, and List is as described under input/output 

statements. 



ACCEPT TAPE Statement 

The accept tape statement is used to cause data 
to be read into core storage from the 1621 Paper Tape 
Reader. 

general form 

ACCEPT TAPE n, List 

where n is the statement number of a format state- 
ment, and List is described under input/output state- 
ments. 

example 

ACCEPT TAPE 30, K, A (J) 

The accept tape statement causes the object program 
to read information from the paper tape reader. Rec- 
ord after record is brought in, in accordance with the 
format statement, until the complete list has been 
satisfied. 

ACCEPT Statement 

The accept statement is used to allow data to be read 
in from the console typewriter. 



general form 



ACCEPT n, List 



where n is the statement number of a format state- 
ment, and List is as described under input/output 
statements. 



EXAMPLE 

PUNCH 40, ( A (J), J = 1, 10) 

The punch statement causes the object program to 
punch cards in accordance with the fohmat statement 
until the complete list has been satisfied. 

PRINT and TYPE Statements 

The print statement and the type statement are used 
to type out data on the console typewriter. 

GENERAL FORM 

PRINT n, List 
TYPE n, List 

where n is the statement number of a format state- 
ment and List is as described under input/output 

STATEMENTS. 
EXAMPLE 

PRINT 2, ( A (J), J = 1,10) 

The print and type statements cause output data to be 
typed on the console typewriter. A carriage return 
occurs, and successive lines are typed in accordance 
with the format statement until the complete list has 
been satisfied. 

PUNCH TAPE Statement 

The punch tape statement is used to cause data to be 
punched by the paper tape punch. 
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GENERAL FORM 

PUNCH TAPE n, List 

where n is the statement number of a format state- 
ment, and List is as described under input/output 

STATEMENTS. 
EXAMPLE 

PUNCH TAPE 25, ( A (J), J - 1, 10) 

The punch tape statement causes information to be 
punched by the paper tape punch. 

Successive records are punched in accordance with 
the format statement until the complete list has been 
satisfied. 



Specification Statements 

The Specification statements supply necessary infor- 
mation to the Fortran compiler, or information to in- 
crease program efficiency. No executable instructions 
are created in the object program as a result of a 
Specification statement. 

DIMENSION Statement 

The dimension statement provides the information 
necessary to allocate storage for arrays in the object 
program. 

GENERAL FORM 

DIMENSION v, v, v . . . 

where each v is the name of a variable, subscripted 
with 1, 2, or 3 unsigned fixed point constants. Any 
number of v's may be given. 

EXAMPLE 

DIMENSION A(10), B(5, 15), CVAL (3, 4, 5) 

Each variable which appears in subscripted form in 
a program or subprogram must appear in a dimension 
statement of that program or subprogram. The dimen- 
sion statement must precede the first appearance of 
that variable. The dimension statement lists the maxi- 
mum dimensions of arrays. In the object program, 
references to these arrays must never exceed the speci- 
fied dimensions. 

The above example indicates that B is a 2-dimen- 
sional array for which the subscripts never exceed 5 
and 15. The dimension statement, therefore, causes 
75 (i.e., 5x 15) fields to be set aside for the B array. 



A single dimension statement may specify the di- 
mensions of a number of arrays. The maximum num- 
ber is limited by the number of continuation cards 
permitted. A program must not contain a dimension 
statement which includes the name of the program 
itself, or any program which it calls. If any of the sub- 
scripts in a dimension statement exceeds 9999, an error 
will be indicated. 

EQUIVALENCE Statement 

The equivalence statement provides one method of 
controlling the allocation of data storage in the object 
program. 

general form 

EQUIVALENCE (a, b, c, ...), (d, e, f, ...),.. . 
where a, b, c, d, e, f, . . . are variables that may be 



subscripted with constants only. 

example 

EQUIVALENCE ( A,B(1),C(5) ), ( D (17),E(3)) 

When the logic of the program permits, the number of 
storage locations used can be reduced by causing 
locations to be shared by two or more variables. The 
equivalence statement should not be used to obtain 
mathematical equality between two or more elements. 
If fixed point and floating point variables are equiva- 
lenced, their word lengths must be the same; i.e., 
/ + 2 must equal k. 

An equivalence statement may be placed anywhere 
in the source program except as the first statement in 
the range of a do. Each set of parentheses in the 
statement list encloses the names of two or more quan- 
tities which are to be stored in the same locations 
during execution of the object program; any number 
of equivalences may be given. 

In an equivalence statement, a term such as C(p) 
can be defined for p>0 to mean the pth location of 
the C array. For example, C(5) would be the fifth 
location in the C array. If p is not specified, it is un- 
derstood to be 1. 

Thus, the example indicates that the A, B, and C 
arrays are to be assigned storage locations such that 
the elements A(l), B(l), and C(5) occupy the same 
location. In addition, it specifies that D (17) and E(3) 
are to share the same location. 

Quantities or arrays which are not mentioned in an 
equivalence statement are assigned unique locations. 

Locations can be shared only among variables, not 
among constants. 
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The sharing of storage locations cannot be planned 
safely without a knowledge of which Fortran ii state- 
ments, when executed in the object program, will cause 
a new value to be stored in a location. There are five 
such Fortran ii statements: 

1. Execution of an Arithmetic statement stores a new 
value of the variable for the left-hand side of the 
formula. 

2. Execution of a do statement stores a new indexing 
value. 

3. Execution of a read, accept, or accept tape state- 
ment stores new values for the variables men- 
tioned in the statement list. 

COMMON Statement 

Variables, including arrays, appearing in common 
statements are assigned to specific storage locations. 
Storage is assigned separately for each program com- 
piled. 

general form 

COMMON A, B . . . 

where A, B . . . are the names of variables and non- 
subscripted array names. 

EXAMPLE 

COMMON X, ANGLE, MATA, MATB 

The common storage area may be shared by a pro- 
gram and its subprograms. In this way, the common 
statement enables a data storage area to be shared 
between programs in a way analogous to that by 
which the equivalence statement permits data storage- 
sharing within a single program. Where the logic of 
the programs permits, this can result in a large saving 
of storage space. 

Array names appearing in the common statement 
must previously have appeared in a dimension state- 
ment in the same program. 

The common storage area is located at the high end 
of core storage, starting with address 19999, 39999 or 
59999. Variables in a common statement are assigned 
storage locations in descending sequence. For example: 

COMMON A, B, C 

With / = 10, A, B, and C would be stored in locations 
19999, 19987, and 19975, and similarly for 40,000 or 
60,000 positions. If C is dimensioned as C(10), then 
19975 is the address of C(10), which is the last ele- 
ment in the array, and 19867 is the address of C(l). 



The common statement takes precedence over the 
equivalence statement. Due to the complex interac- 
tion of these two statements, the programmer must 
adhere to the following two rules: 

1. Variables which are to be placed in common 
storage must be assigned prior to any equiva- 
lence statement containing these variables. For 
example, 

COMMON A 
EQUIVALENCE (A, B, C) 

The order in which the variables appear in the 
equivalence statement is irrelevant and Rule 1 
applies if the common variable is B or C. 

2. Within an equivalence list there may be no more 
than one variable which previously has been: 

a. equivalenced, or 

b. placed in common. 

The following sequence of statements is invalid. 

EQUIVALENCE (A,B, C) 
EQUIVALENCE (X, Y, Z) 

EQUIVALENCE (A, Z) Violates (a) above 

COMMON D 

EQUIVALENCE (D, X, P) Violates combina- 
tion of (a) and (b) 

The sharing of storage locations desired in the above 
statements can be achieved by writing the statements 
as follows. 

COMMON D 

EQUIVALENCE (D, X, P) 
EQUIVALENCE (A, B, C, X) 
EQUIVALENCE (X, Y, Z) 

or 

COMMON D 

EQUIVALENCE (D, A, P, B, C, X, Y, Z) 

A diagnostic error message ^results if either Rule 
1 or 2 is violated. 

Arguments in Common Storage 

common statements may be used as a medium for 
transmitting arguments from the calling program to 
the called Fortran function or subroutine subpro- 
gram. In this way, they are implicitly, rather than 
explicitly transmitted as when listed in the parentheses 
following the subprogram name. 

To obtain implicit arguments, it is necessary to have 
only the corresponding variables in the two programs 
occupy the same location. This can be accomplished 
by having them occupy corresponding positions in 
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common statements of the two programs. For ex- 
ample, (A, B, C) and (E, F, G) become implicit argu-» 
ments when the calling program contains the statement 
common A, B, C, and the called subroutine contains 
the statement, common E, F, G. 

Notes: 

1. To force correspondence in storage locations be- 
tween two variables in different programs, which 
otherwise would occupy different relative posi- 
tions in common storage, it is valid to place 
dummy variable names in a common statement. 
These dummy names, which may be dimensioned, 
will cause reservation of the space necessary for 
correspondence. 

2. While implicit arguments can take the place of 
all arguments in CALL-type subroutines, there 
must be at least one explicit argument in a 
Fortran function. Here, too, a dummy variable 
may be used for convenience. 

When one variable is equivalenced to a second 
variable which appears in a common statement, 
the first variable is also located in common stor- 
age. 

FORMAT Statement 

The format statement is used to describe the format 
of data being transmitted to and from the typewriter, 
card, or paper tape units. 

GENERAL FORM 

FORMAT ( Sl , . . ,s n ) 

where Si is a format specification. The format speci- 
fications must be separated by commas, slashes, or left 
parentheses. 

EXAMPLE 

FORMAT (12/ (E12.4, F10.4) ) 

The Input/Output statements, in addition to the list 
of quantities to be transmitted, contain the statement 
number of a format statement describing the informa- 
tion format to be used. The format statement also 
specifies the type of conversion to be performed be- 
tween the internal machine language and the external 
notation, format statements are not executable; their 
function is merely to supply information to the object 
program. Therefore, they may be placed anywhere in 
the source program (except as the first statement in 
the range of a do ) . 

For the sake of clarity, examples given in this section 
are for typing on the console typewriter. However, the 



description is valid for any input/output unit simply 
by generalizing the concept of "typewritten line" to 
that of the unit record in the selected input/output 
unit. Thus, a unit record may be: 

1. A typewritten line with a maximum of 87 char- 
acters. 

2. A punched card with a maximum of 80 char- 
acters. 

3. A paper tape record with a maximum of 87 char- 
acters. ( The input record length may be variable 
up to 87; the output record length is fixed at 87 ) . 

Numeric Fields 

Three forms of conversion for numeric data are avail- 
able: 



from/to 
internal 



TYPE 



Floating point variable E 



Floating point variable 

Fixed point variable 
These types of conversion 
Ew.d, Fw, 



to/from 
external 

Floating point 
decimal number 

Fixed point 
decimal number 



I Integer 

are specified in the forms: 
d, and Iw. 



where w and d are unsigned fixed point constants. 

Format specifications are used to describe input 
and output formats. The format is specified by giving, 
from left to right, beginning with the first character of 
the record: 

1. The control character (E, F, or I) for the field. 

2. The width (w) of the field. The width specified 
may be greater than required to provide spacing 
between numbers. 

3. For E- and F-type conversions, the number of 
decimal positions ( d ) (of the field ) which appear 

to the right of the decimal point. A maximum of 
/ digits to the right of the decimal point is allowed 
for the output. 
Specifications for successive fields are separated by 
commas. No format specification that provides for more 
characters than the input/output unit record should be 
given. Thus, a format statement for typewritten out- 
put should not provide for more than 87 characters 
per line including blanks. 

Example: The statement, format (12, E12.4, F10.4) 
might cause typing of the line: 

12 E12.4 F10.4 

/-^s/ * v * N 

b7 -92.3100E+00bbbb-.0076 
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(In these examples, b is included to indicate blank 
spaces. ) 

Alphameric Fields 

fohtran n provides a method by which alphameric 
information may be read or written. 

The specification for this purpose, wH, is followed 
in the format statement by w alphameric characters. 
For example: 

24H THIS IS ALPHAMERIC DATA 

Note that blanks are considered alphameric charac- 
ters and must be included as part of the count w. 

Information handled with the H specification is not 
given a name and may not be referred to or manipu- 
lated in storage in any way. 

The effect of wH depends on whether it is used with 
input or output. 

1. Input, w characters are extracted from the input 
record to replace the w characters included with 
the specifications. 

2. Output. The w characters following the specifica- 
tions, or the characters which replaced them, are 
written as part of the output record. 

Example: The statement, format (3HXY = F8.3) 
could produce any of the following lines: 

XY = b -93.210 
XY = b999.999 
XY = bb28.768 

Another alphameric specification, Aw causes w 
alphameric characters to be read into or written from 
a variable or array name. Since each alphameric char- 
acter is represented in core storage by two decimal 
digits, w must be less than, or equal to, the largest 
whole number resulting from fe/2 or f/2, depending on 
whether the variable or array name is fixed or floating. 
If k or f is odd, a zero will be supplied as the least signi- 
ficant digit for the field in core storage. To facilitate 
manipulation of alphameric fields which are stored as 
floating point numbers, the numbers will have zeros as 
an exponent. This will have no effect on input/output. 
However, if the first character in a field is a blank, 
decimal point, or close parenthesis, the field will be 
treated as a zero in the floating point arithmetic sub- 
routines. 

Blank Fields 

Blank characters may be provided in an output record, 
and characters of an input record may be skipped, by 
means of the specification wX where 0< w <87 (w is 
the number of blanks provided or characters skipped) . 
When the specification is used with an input record, w 
characters are considered to be blank (regardless of 
what they actually are) and are skipped over. 



Repetition of Field Format 

It may be desirable to print n successive fields within 
one record, in the same fashion. This may be specified 
by giving n (where n is an unsigned fixed point con- 
stant which must be <99) before E, F, I, or A. Thus, 
the statement, format (12, 3E12.4) might result in: 

27 -92.3100E + 00b75.8000E -02b55.3600E -02 

Repetition of Groups 

A limited, one-level, parenthetical expression is per- 
mitted in order to enable repetition of data fields 
according to certain format specifications within a 
longer format statement specification. Thus, format 
(2(F10.6, E10.2), 14) is equivalent to format (F.10.6, 
E10.2, F10.6, E10.2, 14). The number of repetitions is 
limited to a maximum of 99. 

Scale Factors 

The E-type specification implies a scale factor. There- 
fore E16.8 for an output field will result in the printing 
or punching of a maximum of ten significant digits 
in the form (-)XX.XXXXXXXXE(-)XX. A maxi- 
mum of / digits can be placed to the right of the deci- 
mal point if the d specification is greater than /. In this 
case d — / low order zeros will be inserted to satisfy 
the d specification. The following guide may be used 
when working with E-type specifications. 

1. If f (floating point precision) < w — 6, then f sig- 
nificant digits will be printed or punched. 

2. If f >w —6, then w —6 significant digits will be 
printed or punched. 

For example, if / = 10 and the floating point num- 
ber is stored as 123456789135, it will be printed as 
— 12.34567891E —37, according to specification E16.8. 

The F-type specification also implies a scale factor. 
Therefore, F16.8 for an output field will result in the 
printing or punching of a maximum of fourteen sig- 
nificant digits in the form ( — )XXXXXX.XXXXXXXX. 
However, a maximum of / digits will be placed to 
the right of the decimal point and the result will be 
right-justified in the output field. If f is larger than 
w —2, only w —2 digits will appear in the output. 

The X specification should be used to space fields 
in the E-type format. In the statement 

E16.8, IX, E16.8, IX, E16.8 

a space will be provided between adjacent fields. 

A field read according to the E-type format need 
not have the exponent E( — )XX; i.e., it may actually 
take the same form as the F-type format. 

The P-scale factor may be used in a specification, 
but it will be ignored by the Fortran ii compiler. 
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Multiple Record Formats 

To deal with a block of more than one typewritten 
line, a format specification may have several differ- 
ent one-line formats, separated by a slash (/) to indi- 
cate the beginning of a new line. Thus, format 
(3F9.2, 2F10.4/6E14.5) specifies a multiline typewrit- 
ten block in which line 1 has format 3F9.2 and 2F10.4, 
and line 2 has format 6E14.5 

If a multiple-line format is desired, such that the 
first two lines are typed according to a special format 
and all remaining lines are typed according to an- 
other format, the last line specification should be en- 
closed in a second set of parentheses; e.g., format 
(12, 3E12.4/2F10.3, 3F9.4/(5F12.4)). If data items 
remain to be transmitted after the last line format spe- 
cification has been completely satisfied, the format 
repeats from the last left parenthesis. 

As these examples show, both the slash and the 
closing parenthesis of the format statement indicate 
the termination of a record. 

Blank lines may be introduced into a multiline 
format statement by listing consecutive slashes. 

FORMAT and Input/Output Statement Lists 

The format statement indicates, among other things, 
the maximum size of each record to be transmitted. 
In this connection it must be remembered that the 
format statement is used in conjunction with the list 
of some particular input/output statement, except 
when a format statement consists entirely of alpha- 
meric fields. When the format statement is used 
with the list, control in the object program transfers 
back and forth between the list ( which specifies wheth- 
er data remains to be transmitted) and the format 
statement (which gives the specifications for transmis- 
sion of that data ) . 

Ending a FORMAT Statement 

During input/output of data, the object program scans 
the format statement to which the relevant input/ 
output statement refers. When a specification for a 
numeric field is found and list items remain to be 
transmitted, input/output takes place according to the 
specification, and scanning of the format statement 
resumes. If no items remain, transmission ceases and 
execution of that particular input/output statement is 
terminated. Thus, a numeric input/output operation 
will be brought to an end when a specification for a 
numeric field or the end of the format statement is en- 
countered, and there are no items remaining in the list. 

Data Input to the Object Program 

Input data to be read when the object program is exe- 
cuted must be in essentially the same format as given in 



the previous examples. Thus, a card to be read accord- 
ing to format (12, E12.4, F10.4) might be punched: 

27b -0.9321Eb02bbb -0.0076 

Within each field, all information must appear at the 
extreme right. Plus signs may be omitted or indicated 
by a b (blank) or + . Blanks in numeric fields are 
regarded as zeros, but zeros may not be substituted for 
blanks. For example, a sign cannot be preceded by 
zeros. Numbers for E-type and F-type conversion may 
contain any number of digits, but only the high-order 
/ digits of accuracy are retained. Numbers for I-type 
conversion may not contain more than k significant 
digits. 

To permit economy in punching, certain relaxations 
in input data format are permitted. 

1. Numbers for E-type conversion need not have.four 
columns devoted to the exponent field. The start 
of the exponent field must be marked by an E, 
or if the E is omitted, by a + or — (not by a 
blank). Thus E2.E02, +2, +02, Eb02, and E +02 
are all permissible exponent fields. Blanks are not 
permitted between characters in the exponent 
field except that a blank may be used in place of 
a plus sign. Numbers for E-type conversion must 
be right-justified in the data record field. 

2. Numbers for E-type or F-type conversion need 
not have their decimal points punched. If not 
punched, the format specification will supply 
them; for example, the number —09321 +2 with 
the specification E12.4 will be treated as though 
the decimal point has been punched between the 
and the 9. If the decimal point is punched in 
the card, its position overrides the indicated posi- 
tion in the format specification. 

functions 

Functions in the 1620 Fortran ii System are divided 
into three types. These are (1) Library functions, (2) 
Arithmetic Statement functions, and ^(3) Fortran 
( subprogram ) functions. 

Library Functions 

Seven library (closed) functions are included in the 
Fortran ii System, as distributed. These functions are: 



NAME 



type of function 



LOGF 

SINF 

COSF 

EXPF 

SQRTF 

ATANF 

ABSF 


Natural Logarithm 

Trigonometric Sine 

Trigonometric Cosine 

Exponential 

Square Root 

Arctangent 

Absolute Value Function 
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Library functions are prewritten and exist in pre- 
pared card decks. These functions constitute "closed" 
subroutines; that is, instead of appearing in the object 
program every time they are referred to in the source 
program, they appear only once. 

Library functions can be "called," or used, by in- 
cluding the name of the function in an arithmetic ex- 
pression. The name is followed by an argument en- 
closed in parentheses. The argument can be a variable 
(subscripted or not subscripted), or an expression. 

EXAMPLES 

A = COSF (B) 

A = SQRTF (BETA) 

Y = A - SINF (B* SQRTF (C) ) 

For the last example, the assembled instructions of the 
object program will: 

1. Branch to the square root subroutine to compute 
the value of C. 

2. Multiply the square root value of C (obtained 
in Step 1) by B. 

3. Branch to the sinf subroutine to compute the 
sine of the value obtained from Step 2. 

4. Subtract the value computed so far from the 
variable A. 

5. Replace the present value of the variable Y with 
the value of the complete expression. 

Only one value is produced by a given library func- 
tion. The mode of a library subroutine is determined 
by its argument. 



EXAMPLES 



COS (A) 
ABSF (I) 



floating point 
fixed point 



The relocatable library subroutines supplied with the 
1620 Fortran ii System, with the exception of Abso- 
lute Value Function ( absf ) , will not accept fixed point 
arguments. 

Approximation Methods and Estimated Errors 
Results of the library subroutines are truncated, and, 
in general, errors are no greater than one in the last 
digit of the mantissa. Approximation methods and 
estimated errors for functional subroutines are de- 
scribed in greater detail in the following paragraphs. 
1. Logarithm. The natural logarithm of the frac- 
tional part of the positive argument is evaluated 
by using a power series expansion. The exponent 
of the argument is multiplied by In 10. The prod- 
uct is added to the logarithm of the fraction, and 
the sum is the logarithm of the argument. For 



an argument with its value A in the range 
.99< A <1.01, the leading digits of its logarithm 
will be zeros, and the result will contain less 
than / significant digits because of normalization. 
The maximum truncation error in the result is 
±10-'. 

2. Exponential. The value of e*, where A is the value 
of the argument, is calculated by using a series 
approximation for 10\ For |A| = 227.955924206. . . 
an exponent overflow will result for A>0 or ex- 
ponent underflow for A<0. The value of A is mul- 
tiplied by log e and the product separated into 
an integer and a fractional part. The integer be- 
comes the exponent of the result and the fractional 
part is used to produce its mantissa by series 
approximation. If A is greater than zero, the maxi- 
mum error in the result is ±5 x 10~ f . 

3. Cosine-Sine. The cosine and sine functions of an 
argument with value A in radians are computed 
by using a series approximation for cosine A with 
sine A = cosine (-=■ — A ) . The value A is re- 
duced to within the range — -r < A < ■=• For 

arguments with exponents less than 03, the mag- 
nitude of the maximum truncation error in the 
mantissa of the result does not exceed 10"'. Ac- 
curacy in the mantissa of the result decreases as 
the size of the argument (exponent 03 or greater) 
increases. 

4. Arctangent. The arctangent function of an argu- 
ment with value A is evaluated by using a series 
approximation. The result is given in radians. 
The maximum trunction error in the mantissa 
of the result is ±10', except for results with an 
exponent less than or equal to —2. The maximum 
error for these results is ±1 in the (/ + 1) deci- 
mal place. 

5. Square Root. The square root is derived by the 
odd integer method. The result is accurate to 1 
in the last digit of the mantissa. 

6. A °* B. A B is evaluated as EXPF (B*LOGF 
( A ) ) . Three subroutines, logarithm, multiply, 
and exponential, are involved. An error in one 
of these subroutines may propagate other errors 
or increase the error in a succeeding subroutine. 
Normally, the magnitude of the error does not 
exceed 10 1_f . 

Additional Library Functions 

Up to 43 additional functions can be added to the 
library of subroutines. The user must code the new 
subroutine in 1620 sps language with the origin defined 
at core location 10,000. The P and Q addresses of an 
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instruction which are relative to address 10,000 must 
be indicated by placing flags over the O and O x digits 
(the Op code digits) respectively, so that these ad- 
dresses can be modified properly when the subroutine 
is relocated in storage. 

When programming a subroutine with variable 
length floating point numbers, it may be desirable to 
use certain addresses and constants available in the 
arithmetic and input/output subroutines. A reference 
to the program listings of these subroutines will yield 
the information on these addresses and constants. 
As the mode of operation (fixed or floating point) is 
determined by the argument of the subroutine, the 
Fortran n compiler does not distinguish between 
fixed point and floating point subroutines. It is up to 
the user to have a thorough knowledge of the added 
subroutines and to use them correctly. 

Linkage 

In an object program the linkage to the library sub- 
routines is in the form, 

BTM — SUBR, A for a normal variable 

A, and 
BT —SUBR, A if A is a parameter in 

a subprogram 

where subr is the indirect address of the subroutine 
entrance, and A is the address of the argument. The A 
may or may not be in fac. 

It is imperative that space be provided at the end 
of each subroutine for storing the 5-digit address of 
the argument for the succeeding subroutine. 

The total number of storage locations required must 
be even. Therefore, if the subroutine ends with a 
branch instruction (Op 49), then the instruction 
should be counted as 12 digits long in calculating the 
total length of the subroutine. If the subroutine ends 
with a Branch Back (Op 42), the instruction should be 
counted as at least 8 digits in length. In case the sub- 
routine ends with a constant, then an additional 5 or 6 
digits, depending on whether the constant has an even 
or odd address, should be added to the length of the 
subroutine. 

For arithmetic and input/output subroutines, the 
actual addresses of the subroutines are used in the 
linkage. 

Work Areas 

In writing the subroutines, the programmer may first 
move the argument into one of the work areas such 
as fac, beta or save. In arithmetic subroutines the ex- 
ponent of a floating point result is usually stored in 
save before being moved to fac. A careful study of the 
arithmetic subroutines may reveal that the relocatable 



subroutine to be added can share the normalization, 
sign determination, overflow, underflow, and error 
typeout sections. The value calculated by the sub- 
routine must be left in fac. Even if no value is cal- 
culated, it is advisable to place a constant in fac. 

The procedures to add a subroutine to the library 
are described under adding library subroutines. 

Arithmetic Statement Functions 

An arithmetic statement function is defined by a single 
arithmetic statement and applies only to the program 
in which it appears. 

All arithmetic statements defining functions must 
precede the first executable statement of the program. 

The name assigned to an arithmetic statement func- 
tion must conform the the following rules. 

1. The name must consist of at least one, but not 
more than six characters. 

2. It must begin with an alphabetic character; nu- 
meric and alphabetic characters may follow the 
first character in any combination. 

3. No special characters may be used. 

The function name determines the mode of the value 
that is computed; for example, if the function name be- 
gins with I through N, the mode of the value will be 
fixed point. 

The function statement is defined as follows. 

NAME (ARG) = E 

where name is the name of the function; arg is the 
argument which consists of one or more non-sub- 
scripted variables, separated by commas and enclosed 
in parentheses; and exp is an expression which con- 
forms to the rules for forming expressions. 

EXAMPLES 

FIRST (X) = A*X + B 

SECOND (X, B) = COS (X) * FIRST (B) 

Any function name appearing in an expression must 
have previously been defined in a preceding state- 
ment. 

The appearance of the name in an arithmetic state- 
ment serves to call the function. The value of the func- 
tion (a single numeric quantity) is then computed, 
using the arguments which are supplied in the paren- 
theses following the function name. 

As many as desired of the variables appearing in 
the expression on the right-hand side may be stated on 
the left-hand side as arguments of the function. Since 
the arguments are really only dummy variables, their 
names are unimportant (except insofar as they indi- 
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cate fixed-point or floating-point mode ) and they may 
even be the same as names appearing elsewhere in the 
program. 

Those variables on the right-hand side which are 
not stated as arguments are treated as parameters. 
Thus, if first is defined in a function statement as 
first (X) = A * X + B, then a later reference to first 
( Y ) will cause a y + b, based on the current values of 
a, b, and y, to be computed. The naming of param- 
eters, therefore, must follow the normal rules of 
uniqueness. 

The arguments of an arithmetic statement function 
reference may be expressions and may involve sub- 
scripted variables; thus, a reference to first (Z + Y (I)), 
as a result of the previous definition of first, will cause 
a(z + yi ) + b to be computed on the basis of the cur- 
rent values of a, b, y ( and z. 

Functions defined by arithmetic statements are 
always compiled as closed subroutines; that is, the 
machine-language instructions are compiled only once 
in the object program. 

Dummy Variables Within an Arithmetic Statement Function 
A variable appearing as a dummy argument within an 
arithmetic statement function must not have been de- 
fined previously except as a dummy argument in a pre- 
vious arithmetic statement function. After the variable 
is used as a dummy argument, it may appear elsewhere 
in the program. 

FORTRAN Functions 

This class of functions covers subroutines that are not 
utilized frequently enough to be library functions, yet 
because of their size or complexity, they cannot be de- 
fined in a single arithmetic statement. 

Fortran functions are compiled separately, yet the 
object program cannot be executed as an entity. For 
execution, they must be loaded (to core storage) and 
called by a main program. For this reason, Fortran 
functions are termed subprograms. 

Subprograms allow large problems to be defined as a 
group of smaller problems, thus allowing several pro- 
grammers to work concurrently in different areas of 
the same program. Since each subprogram is compiled 
separately, the arithmetic statement function name and 
variable names used in one subprogram are completely 
independent of the function and variable names used 
in the main program or other subprograms. 

Subprograms are divided into two types: function 
subprograms, and subroutine subprograms. Four 
statements, function, subroutine, call, and return 
are necessary for their definition and use. These state- 
ments are described later. 



Although function subprograms and subroutine 
subprograms are treated together and may be viewed 
as similar, they differ in two fundamental respects: 

1. The function subprogram can compute only one 
value, whereas the subroutine subprogram can 
compute many values (and then return them to 
the main program). 

2. The function subprogram is called by an arith- 
metic expression containing its name; the sub- 
routine subprogram is called by the use of a call 
statement. 

In all respects, subprograms must conform to the 
rules for Fortran ii programming. They are usually 
compiled separately; however, they can be compiled 
together as described under batch compilation, 

FUNCTION Statement 

'The function statement, always first in a function 
subprogram, defines it as a Fortran function sub- 
program. 

GENERAL FORM 

FUNCTION Name (a 1; a 2 , . . . , a„) 

where Name is the symbolic name of a single-Valued 
function, and each argument a ly a,, . . . , a n (of which 
there must be at least one ) is a nonsubscripted variable 
name. The function name consists of 1 to 6 alphabetic 
or numeric characters, the first of which must be al- 
phabetic. 

EXAMPLES 

FUNCTION ARCSN(RADS) 
FUNCTION ROOT (B, A, C) 
FUNCTION INTRT (RATE, YEARS) 

In a function subprogram, the name of the function 
must appear either in an input statement list, or at least 
once as the variable on the left-Jiand side of an arith- 
metic statement. An example of the latter is: 

FUNCTION NAME (A, B) 



NAME = A + B 



RETURN 

The value of the function is returned to the calling 
program. The mode of a function subprogram is de- 
termined by its name. 
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EXAMPLES 

FUNCTION AM AST (A, K) Floating point 
FUNCTION IAMAST (A, K) Fixed point 

The arguments following the name in the function 
statement may be considered as "dummy" variable 
names; that is, during object program execution, other 
actual arguments are substituted for them. Therefore, 
the arguments which follow the function reference in 
the calling program must agree in number, order, and 
mode with those in the function statement in the 
subprogram. Furthermore, when a dummy argument 
is an array name, the corresponding actual argument 
must also be an array name. Each of these array names 
must appear in similar dimension statements within 
its respective program. None of the dummy variables 
may appear in EQUIVALENCE statements in the 
FUNCTION subprogram. 

SUBROUTINE Statement 

GENERAL FORM 

SUBROUTINE Name (a 1; a-,, . . . , a„) 

where Name is the symbolic name of a subprogram, 
and each argument, a u a 2 , . . . , a n , if any is specified, 
is a nonsubscripted variable name. The name of the 
subprogram consists of 1 to 6 alphabetic or numeric 
characters, the first of which must be alphabetic. 

EXAMPLES 

SUBROUTINE MATMP (A, N, M, B, L, C) 
SUBROUTINE QDRT (B, A, C, ROOT 1, ROOT 2) 

The subroutine statement, always first in a subroutine 
subprogram, defines it as a subroutine subprogram. A 
subprogram introduced by the subroutine statement 
must be a Fortran program and may contain any 
Fortran ii statements except function, or another 
subroutine statement. 

A subroutine subprogram must be referred to by 
a call statement in the calling program. The call 
statement specifies the name of the subprogram and 
its arguments. 

Unlike the function subprogram which results in 
the calculation of only a single numeric value, the 
subroutine subprogram uses one or more of its argu- 
ments to return results. Therefore, the arguments so 
used must appear on the left side of an arithmetic 
statement in the subprogram (or alternately, in an 
input statement list within the subprogram ) . 



The arguments of the subroutine statements are 
dummy names that are replaced, at the time of execu- 
tion, by the actual arguments supplied in the call 
statement. There must, therefore, be correspondence 
in number, order, and mode, between the two sets of 
arguments. Furthermore, when a dummy argument is 
an array name, the corresponding actual argument 
must also be an array name. Each of these array names 
must appear in similar dimension statements within 
its respective program. 

For example, the subprogram headed by 

SUBROUTINE MATMP (A, N, M, B, L, C) 

could be called by the main program through the 
call statement 

CALL MATMP (X,5, 10, Y,7,Z) 

where dummy variables, A, B, C, are the names of 
matrices. A, B, C must appear in a dimension state- 
ment in subprogram MATMP, and X, Y, Z must appear 
in a dimension statement in the calling program. The 
dimensions assigned must be the same in both state- 
ments. 

None of the dummy variables may appear in 
equivalence statements in the subroutine subpro- 
grams. These subprograms may be independently com- 
piled or used in a multiple compilation with others 
(see batch compilation). 

CALL Statement 

The call statement refers only to the subroutine sub- 
program, whereas the return statement (described 
later) is used by both the function and subroutine 
subprograms. 

general form 

CALL Name (a t , a 2) . . . , a n ) 

where Name is the name of a subroutine subprogram, 
and ai, a 2 , . . . , a„ are the arguments. 

examples 

CALL MATMP (X, 5, 10, Y, 7, Z) 

CALL QDRT (P*9.732, Q/4.536, R -S**2.0, XI, X2) 

This statement is used to call subroutine subpro- 
grams; the call transfers control to the subprogram 
and presents it with the parenthesized arguments. 
Each argument must be one of the following types: 

1. Fixed point constant. 

2. Floating point constant. 
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3. Fixed point variable, with or without subscripts. 

4. Floating point variable, with or without sub- 
scripts. 

5. Arithmetic expression. 

The arguments presented by the call statement 
must agree in number, order, mode, and array size 
with the corresponding arguments in the subroutine 
statement of the called subprogram, and none of the 
arguments may have the same name as the subroutine 
subprogram being called. 



RETURN Statement 



EXAMPLE 



RETURN 



This statement terminates any subprogram of the type 
headed by either a subroutine or a function state- 
ment, and returns control to the calling program. A 
return statement must, therefore, be the last executed 
statement of the subprogram. It need not be the last 
statement of the subprogram physically, but can be 
any point reached by a path of control. Any number 
of return statements may be used. 
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Compilation Process 



The process of compiling a Fortran ii program is di- 
vided into two passes or machine runs. The first pass 
uses one deck (Pass I deck) of the compiler to proc- 
ess source statements and to produce an intermediate 
output. The second pass utilizes a second deck (Pass 
II deck) of the compiler and the intermediate output 
from Pass I to produce the object program and its 
loader. 

Subroutines may be included in the object deck or 
loaded separately at object time. If any subprograms 
are to be included, they are loaded at object time when 
they are called for by the main program. 

Note: If compilation is being done on a 1620 Model 2, 
the indexing feature must be in the "no band" mode. 

Arithmetic and Input/Output Subroutines 

The arithmetic and input/output subroutines, includ- 
ing constants and work storage, are basic routines 
needed for the proper execution of the object program. 
They are loaded without being specifically called for 
by the object program, and are stored in locations. 
00402 through 10999 at object time. Besides perform- 
ing the fundamental tasks of adding, subtracting, etc., 
these routines also perform some diagnostic testing on 
the data being manipulated. 

The arithmetic and input/output subroutines avail- 
able with Fortran ii are shown in Table 1. By re- 
ferring to the symbolic names for the subroutines in 
the listing, their equivalent absolute addresses can be 
found. 



Table 1. Arithmetic and Input/Output Subroutines 



FAC - simulated accumulator 
A&B - floating point variables 
I & J - Fixed point variables 
*■ - store in 



Subroutine 


Symbolic Name 


Operation 


Floating Point Arithmetic 






Add 


FAD 


FAC + A -*■ FAC 


Subtract 


FSB 


FAC - A -*■ FAC 


Reverse Subtract 


FSBR 


A - FAC -*■ FAC 


Multiply 


FMP 


FAC x A -•» FAC 


Divide 


FDV 


FAC / A -»• FAC 


Reverse Divide 


FDVR 


A / FAC -*■ FAC 


Set FAC to zero 


ZERFAC 


»-FAC 


Fixed Point Arithmetic 






Add 


FXA 


FAC + I — »- FAC 


Subtract 


FXS 


FAC - I — •- FAC 


Reverse Subtract 


FXSR 


I - FAC — *~ FAC 


Multiply 


FXM 


FAC x I —»- FAC 


Divide 


FXD 


FAC/I— »-FAC 


Reverse Divide 


FXDR 


I /FAC — *-FAC 


Common Subroutines 






Load FAC 


TOFAC 


A -— FAC or I -•- FAC 


Store FAC 


FMFAC 


FAC -»-A or FAC -*- 1 


Reverse Sign of FAC 


RSGN 


- FAC -»-FAC 


Fix a Floating Point Number 


FIX 


FIX (FAC) -*■ FAC 


Float a Fixed Point Number 


FLOAT 


FLOAT (FAC) -»-FAC 


Exponentiation 






Fixed Point J " 1 


F1XI 


FAC ** I -*-FAC 


Floating Point A ** (±1) 


FAXI 


FAC **(±I)-»-FAC 


Floating Point A** (±B) 


FAXB 


FAC **(±B)-*-FAC 


Input/Output 






Read Card 


RACD 




Read Tape 


RAPT 




Read Typewriter 


RATY 




Write Card 


WACD 




Write Tape 


WAPT 




Write Typewriter 


WATY 





Pass / 

Compiler Deck 

The composition of the Pass I compiler deck is shown 
below. 

Card Numbers (columns 76-80) 
00001-00009 Loader 
00010-00413 Pass I compiler program 
02000-02005 Multiply-Add tables 
03000 Library subroutine count and 

names of library subroutines 

Operating Procedures 

The sequence of operations required to process a 
source program is as follows : 

1. Set the Program switches for Pass I compilation 
(see Table 2). 



2. Set the Overflow Check switch to program and 
all other Check switches to stop. „ 

3. Press the Reset key. 

4. Ready the card punch by loading blank cards into 
the punch hopper and pressing the Punch Start 
key. 

5. Load Pass I of the compiler program by placing 
the deck in the read hopper and pressing the 
Load key. The cards are punched with sequence 
numbers in columns 76-80 and must be loaded in 
sequence. When the Pass I deck is successfully 
loaded, the console typewriter types out the fol- 
lowing instruction, 

ENTER SOURCE PROGRAM, PRESS START 

and the 1620 halts. 
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Table 2. Program Switch Settings for Passes I and II 



Switch 


PASSI 


PASS II 


ON 


OFF 


ON 


OFF 


1 


Source statements are listed as 
they are processed. 

Source statement errors are listed in 
the form ERROR n.* 

At end of pass, symbol table is listed 
out. 


Source statement's are not 
listed. 

Source statement errors are 
listed in the form SSSS + 
CCCC ERROR n. * 

Symbol table is not listed. 


Statement numbers and addresses 
are listed. 

At the end of Pass .^subroutines 
are punched into object deck. 


Statement numbers and addresses 
are not listed. 

At the end of Pass II, subroutines 
ore not punched into object deck. 


2 


Enables batch compilation. 


No batch compilation. 


Not used . 


Not used. 


3 


Source statements are entered at the 
console typewriter. 


Source program is entered 
from card reader. 


A trace instruction is .compiled to 
trace the value of the expression 
generated in an IF statement . An 
additional instruction is generated 
in the object program for every IF 
statement . 


Trace instructions for IF statements 
are not compiled. 


4 


Errors made while typing source state- 
ments can be corrected by 

a. turning on switch 4, i 

b. pressing the Release 1 


e»c. turning off switch 4 
d. retyping statement. 


Trace instructions for arithmetic 
statements are compiled but no 
additional instructions are gener- 
ated. 


Trace instructions for arithmetic 
statements are not compiled. 







* See description under Errors in Source Program 

6. Enter the source program statements through 
either the card reader or the console typewriter. If 
source statements are entered via the typewriter, 
each statement must be terminated by a record 
mark. A statement of up to 330 characters may 
be typed with no intervening punctuation, spac- 
ing, etc. Normally, card format need not be fol- 
lowed; however, in the case of a comment state- 
ment, the C must be followed by at least two 
blanks before the comment is typed. If the oper- 
ator wishes to compile the program with / ( float- 
ing point word length) and k (fixed point word 
length) not equal to 8 and 5, respectively, he 
should follow the procedure outlined under source 

PROGRAM CONTROL CARD. 

Pass I Compiler Loading Errors 

Sequence Errors. The Pass I deck of the compiler will 
not load if any of the first nine cards (loader) are out 
of sequence. If a sequence error is found, it must be 
corrected and the deck reloaded. 

Following the loader, the cards numbered 00010 
through 02000 are sequence-checked. If any of these 
cards are not in sequence, the message, 

CARD OUT OF SEQUENCE 

is typed. The card read out of sequence will be the 
second one from the back in the reader stacker. To 
restart, 



1. Remove the cards remaining in the hopper. 

2. Press the Nonprocess Runout key. 

3. Remove the last two cards from the stacker. 

4. Arrange the cards (gathered in 1, 2, 3 above, in 
proper sequence and press the Reader Start and 
Start keys. 

Library Function Declaration Errors. After the main 
body of the Pass I deck is loaded, the program 
reads in the library function declaration card(s) at 
the end of the deck. If the message, 

LIBRARY FUNCTION DECLARATION ERROR 

is typed, it signifies that one of the following error 
conditions has been detected. 

1. Library function declaration cards are out of se- 
quence. 

2. More than 50 library functions have been declared. 

3. Library function name has more than 6 alphameric 
characters. 

4. Library function name does not begin with an 
alphabetic character. 

To restart after any one of these conditions occurs, 

a. Remove the library function declaration cards 
from reader (first function card will be num- 
bered 03000). 

b. Correct the error. 

c. Reload function cards. 

d. Press the Reader Start and Start keys. 
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Entering the Source Program 

The form of the source program can be either a punched 
deck or a list of statements to be typed in at the console 
typewriter. This entry option is exercised by position- 
ing Program Switch 3 as follows: 

1. Card input — Switch 3 off 

2. Typewriter input — Switch 3 on 

When typewriter input is selected, the compiler 
transfers control to the 1620 console to await typing 
of the first statement. Each typed statement must ter- 
minate with a record mark. After a statement is typed, 
the operator should press the Release and Start keys 
to process that statement. As soon as the statement is 
processed, the carriage returns to await entry of the 
next statement. After an end statement ( the last state- 
ment of a source program ) is processed and provided 
there have been no Type 1 errors (see Table 3), the 
message, 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

is typed on the console typewriter. If the operator does 
not want a symbol table listing, he should ascertain 
that Switch 1 is off, and press the Start key. The 
message, 

END OF PASS I 

will then be typed. If a symbol table listing is re- 
quested, this message is typed following the listing. 

Page Heading Card 

The source program may be preceded by an identifi- 
cation card containing the following information. 



Columns 1-2 
Columns 3-72 



Identification data 



If Switch 1 is on, the identification data will be typed 
out as a heading at the start of Pass I, at the start of 
the symbol table, and at the start of Pass II. This data 
will be typed out at the start of Pass I, regardless of 
the switch setting, if a source program control card is 
used. 

The page heading card is punched out as the first 
card of the intermediate output and as the first card of 
the object deck. The first card of the intermediate out- 
put and the first card of the object program will be 
blank if the page heading card is omitted from the 
source program. Record marks and group marks 
should not be present in the card. 

Source Program Control Card 

The compiler will process an object program with a 
floating point mantissa length (/) of 8 digits and a 
fixed point word length ( k ) of 5 digits and assume the 



object machine has the same size core storage. The 
operator may vary these by using a control card. The 
control card must precede the source program, and 
follow the page heading card if one is present. The 
card should have the following format, 

(asterisk) 



Column 1 


*( 


Columns 2-3 


ff 


Columns 4-5 


kk 


Column 6 


s 


Columns 7-80 


Nc 



Not used 

where // is the floating point mantissa, kk is the fixed 
point word length, and s is the object machine core 
size (s - 2, 4, or 6 for 20,000, 40,000, or 60,000 posi- 
tions). 

If entry is from the typewriter, the following config- 
uration should be typed preceding the source program. 

"ffkks 

If s is left blank, the compiler assumes the object and 
source machines to be the same size. The range of / 
is 2 through 28; of k, 4 through 10. If either / or k is 
out of the prescribed range, the message, 

ERROR, FORK OUTSIDE RANGE 

is typed. To restart, replace the control card with a 
correct card and press the Reader Start key. If entry is 
from the typewriter, press start, type the correct 
values, and press the Release and Start key. 

No correlation is necessary between / and k unless 
there is equivalence between fixed and floating point 
variables, in which case k must equal / + 2. 

Errors in the Source Program 

During compilation of Pass I, a number of tests are 
made for source program errors. If an error is found in 
a source statement and Switch 1 is on, a message in the 
form, 

error n 

is printed, where n is the error code ( see Table 3 ) . If 
Switch 1 is off, the error message is in the form, 

SSSS -f CCCC ERROR n 

where ssss is the last statement number encountered 
by the program prior to the error, and cccc —1 is 
a count of how many statements lie between the last 
numbered statement and the statement in error. For 
example, 

509+12 

means the twelfth statement following the statement 
numbered 509. If an error occurs before a statement 
number is encountered, ssss will be blank. Comment 
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Table 3. Source Program Errors 

TYPE 1: Compilation continues but punching of intermediate output is stopped. 



Only one error of this type is detected in any one statement. 



Error No. 



10 

II 

12 
13 

14 
15 

16 

17 
18 
19 

20 



Condition 



Undeterminable, misspelled, or incorrectly 
formed statement. 

Syntax error in a nonarithmetic statement 
(exception: DO statements). 

Dimensioned variable used improperly, 
i.e., without subscripting; or subscripting 
appears on a variable not previously 
dimensioned. 

Symbol table full (processing may not be 
continued). 

Incorrect subscript. 

Same statement number assigned to more 
than one statement. 

Control transferred to FORMAT statement . 

Variable name greater than 6 alphameric 

characters. 

Variable name used both as a nondimensioned 
variable name and as a Subroutine or Function 
name. 

Invalid variable within an EQUIVALENCE 
statement. 

Subroutine or Function name or dummy var- 
iable used in an EQUIVALENCE state- 
ment (subprogram only). 

k not equal to f + 2 for equivalence of 
fixed point to floating point variables. 

Within an Equivalence list, placement of 
two variables previously in Common, or one 
variable previously equivalenced and 
another either equivalenced or placed in 
Common . 

Sense switch number missing in an IF 
(Sense Switch n) statement. 

Statement number or numbers missing, 
not separated by commas, or nonnumeric 
in a transfer statement. 

Index of a computed GO TO missing, 
invalid, or not preceded by a comma. 

Fixed point number greater than k digits. 

Invalid floating point number. 

Incorrect subscripting within a DIMENSION 
statement. 

First character of a nome not alphabetic. 



Error No. 



21 



22 

23 
24 

25 
26 

27 



28 
29 
30 
31 
32 
33 

34 

35 
36 
37 
38 

39 
40 



Condition 



Variable within a DIMENSION statement 
previously used as a nondimensioned 
variable, or previously dimensioned, or 
used as a Subroutine or Function name. 

Dimensioned variable used within an 
arithmetic statement function. 

More than four continuation cards. 

Statement number in a DO statement 
appeared in a previous statement. 

Syntax error in a DO statement. 

FORMAT number missing in an input/ 
output statement. 

Statement number in an input/output 
statement appeared previously on a state- 
ment other than a FORMAT statement, or 
a number on a FORMAT statement appeared 
in other than an input/output statement. 

Syntax error in input/output list, or an 
invalid list element. 

Syntax error in CALL statement, or an 
invalid argument. 

SUBROUTINE or FUNCTION statement 
not the first statement in a subprogram. 

Syntax error or invalid parameter in a 
SUBROUTINE or FUNCTION statement. 

Syntax error or invalid variable in a 
COMMON statement. 

Variable in a Common list previously 

placed in Common or previously equivalenced. 

Function name appeared to the left 
of an equal sign or input/output 
statement. 



Syntax error in FORMAT statement, or 
invalid FORMAT specifications. 

Invalid expression to the left of an equal 
sign in an arithmetic expression. 

Arithmetic statement function preceded 
by the first executable statement. 

Invalid expression in an IF or CALL state- 
ment, or invalid expression to the right of 
an equal sign in an arithmetic statement. 

Unbalanced parenthesis. 

Invalid argument used in calling an 
Arithmetic statement function or Function 
subprogram. 



TYPE 2: Both compilation and the punching of intermediate output continue. 



Error No. 



51 
52 

53 
54 
55 



Condition 



DO loop ended with a transfer statement. 

No statement number for next executable 
statement following a transfer statement. 

Improperly ended nonarithmetic statement. 

Unnumbered CONTINUE statement. 

Number of Common addresses assigned in 
excess of storage capacity because of 
Equivalence . See note at end of Table . 



NOTE: Error 55 is not detected if Type 1 errors occur during compilation. 



Error No . 


Condition 


56 


Statement number or subscript greater than 
9999 (only first 4 significant digits are 
retained). 


57 


RETURN statement appeared in program 
other than a subprogram (statement ignored). 


58 


RETURN statement not contained in a Sub- 
routine or Function subprogram. 
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cards, blank cards, and continuation cards are not in- 
cluded in the statement count. If a statement number 
is not defined, the message, 

STATEMENT NUMBER SSSS UNDEFINED 

is printed, where ssss is the undefined statement num- 
ber. 



Pass // 

Compiler Deck 

The composition of the Pass II compiler deck is as 
follows. 

Card Numbers (columns 76-80) 
04001-04009 Loader 
04010-04493 Pass II compiler program 
05000-05005 Multiply-Add tables 

Operating Procedures 

1. Set the Console Program switches for Pass II 
(Table 2). 

2. Set the Overflow Check switch to program, and 
all other check switches to stop. 

3. Press the Reset key. 

4. Ready the card punch by loading blank cards 
into the punch hopper and pressing the Punch 
Start key. 

5. Load the Pass II deck of the compiler by placing 
the deck in the reader hopper and pressing the 
Load key. The deck should be in proper se- 
quence; only cards 04010 through 05000, however, 
are sequence-checked by the compiler. If any of 
these cards is not in sequence, the error message, 

CARD OUT OF SEQUENCE 

is typed. For restart procedures, refer to pass i 
compiler loading errors. When the deck has 
been successfully loaded the computer will come 
to a programmed halt. 

6. Place the intermediate output from Pass I into the 
reader hopper. 

7. Press the Reader Start and Start keys. 

Processing the Intermediate Output 

The page heading card punched during Pass I must be 
the first card read by Pass II. As the intermediate 
output is being read, the card numbers (columns 77 
through 80) are tested for proper sequence. In the 
mainline program, the number starts with 0001; in 



subprograms, 0000. If the cards are not in sequence, 
the message, 

CARDS NOT IN ORDER 

is typed and the machine halts. 
To restart, 

1. Remove the last two cards from the reader stacker. 

2. Remove the cards that remain in the reader 
hopper. 

3. Press the Nonprocess Runout key. 

4. Arrange cards (from 1, 2, 3 above) in proper 
sequence, load them in the reader, and press the 
Reader Start and Start keys. 

Overlap. During processing of the intermediate out- 
put, a test is made to determine whether the com- 
piled object program (not including relocatable 
library subroutines), together with the required 
data, will occupy more core storage than is avail- 
able. If this condition is found to exist, the message, 

XXXX OVERLAP 

is typed immediately after the processing of the state- 
ment which caused the overlap. Here xxxx is the 
relative number of the statement within the pro- 
gram not counting storage allocation statements, 
comments, or blank cards. For example, if xxxx is 
0050, then the overlap is caused by the fiftieth state- 
ment in the program. 

If an overlap exists, the message, 

OVERLAP NNNNN 

is typed at the end of the compilation; nnnnn 
being the total number of core storage positions 
overlapped. 

Subroutines 

If a mainline program (not a subprogram) is being 
compiled, the message, 

SW 1 ON TO PUNCH SUBROUTINES, PRESS START 

will be typed after all intermediate output has been 
processed. If the subroutines are to be included in 
the object deck, the operator must 

1. Turn on Program Switch 1. 

2. Load the subroutine deck. 

3. Press the Reader Start and Start keys. 

If the subroutine deck is to be read in when the 
object program is executed, Switch 1 should be turned 
off and the Start key pressed. When processing is com- 
pleted, the message, 



END OF PASS II 



is typed. 
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When the subroutines are reproduced for inclusion 
in the object deck, the following error messages may 
occur: 

SUBROUTINE OVERLAP XXXXX 

If a subroutine being punched overlaps the available 
space, further punching of that subroutine and succeed- 
ing called-for subroutines ceases. However, a total count 
of the overlapped locations of all subroutines is stored 
and printed out with the message. 

LIBRARY SUBROUTINE MISSING 

If one or more subroutines is missing, the 1620 will 
halt to allow corrective action. Proceed as follows: 

1. Remove the last two cards from the reader stacker. 

2. Remove the deck from the reader hopper. 

3. Run out the two cards in the reader. 

4. Arrange the cards (from 1, 2, 3 above) in proper 
sequence. 

5. Place the required relocatable subroutines ahead 
of the deck. 

6. Place the deck back into the reader hopper and 
press the Reader Start and Start keys. 

If the operator does not know which subroutine(s) 
is missing, he may print out storage locations 00415- 
00464 at the console typewriter. If the nth digit(s) 
is a 1 (one), the subroutine(s) numbered n was called 
but not loaded. 

MISSING HEADER CARD 

If the subroutine header card is missing, follow 
Steps 1, 2, 3, as outlined for library subroutine miss- 
ing, then 

4. Arrange the cards in proper sequence and ascer- 
tain that the first card is a header card. 

5. Place the deck back into the reader hopper and 
press the Reader Start and Start keys. 

At the end of Pass II, the messages, 

XXXXX LENGTH 
YYYYY NEXT COMMON 

are printed, where xxxxx is the number of core positions 
the object program requires ( mainline program length 
includes length of Arithmetic and i/o subroutines), 
and yyyyy is the next available core storage position of 
the common area(YYYYY + 1 is the last reserved position 
of common ) . 

Errors in the Source Program 

During compilation of the intermediate output, some 
diagnostics are performed which were not performed 



during Pass I. If an error is detected, an error message 
in one of the following forms is printed. 

xxxx symbol table full 

XXXX IMPROPER DO NESTING 
XXXX MIXED MODE 
XXXX DO TABLE FULL 

Here, xxxx is the relative number of the statement 
within the program, not counting storage allocation 
statements, comments, or blank cards. The number 
xxxx does not correlate with any actual statement 
number. 

If an improper do nesting or mixed mode error is 
detected, compilation continues; however, the output 
will not be usable. If the message, symbol table full, 
is printed (due to too many symbols), compilation 
stops. The do table full message appears when more 
than 29 do statements are nested; compilation does 
not continue. 



Batch Compilation 

Batch compilation is a method by which several inputs 
can be processed and the output obtained without 
reloading the compiler program. 

1620 Fortran ii allows batch compiling for both 
Pass I and Pass II. 

Pass I 

To batch-compile for Pass I, proceed as follows: 

1. Remove intermediate output from the punch 
hopper after the message end of pass i has been 
typed. 

2. Turn on Program Switch 2. (Program Switch 2 
may be turned on at any time during Pass I.) 

3. Press the Punch Start key on the card punch and 
press the 1620 Start key. This will cause a symbol 
table deck containing a 3-digit sequence number 
in columns 78 through 80 (numbering starts 
with 101) to be punched out. 

4. After the necessary initialization is done, the 
following message is typed: 

enter source program, press start 

Set the program switches as desired and proceed 
to enter the source statements. 

Pass II 

To batch-compile for Pass II, proceed as follows: 
1. Place deck containing symbol table between the 
page heading card and the remainder of the 
intermediate output deck from Pass I, and load 
both into the card reader. 
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2. Press the Reader Start key. decks on top of each other, taking care to keep 

3. After the output is obtained, load another inter- respective symbol tables between the page head- 
mediate output with its page heading card and ing card and the intermediate decks. The output 
symbol table and press the Reader Start key. will be one composite deck which will have to 

If the operator wishes, he may load a series of be separated manually. 



I 
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Object Program 



Description 

A 1620 Fortran ii object program will most likely 
consist of two parts: a mainline program and a group 
of subprograms. Although these two segments are 
similar in most respects, they will be described sep- 
arately to show their relative position in, and im- 
portance to, the over-all objective. 

Discussion of subroutines in this section will be 
limited to the way they affect the loading of the 
object program. 

Mainline Program 

As the name implies, a mainline program exercises 
control over the entire object program. In addition to 
the normal execution of instructions, it has the ability 
to call subprograms and subroutines when they are 
needed. 

Makeup. The mainline program is comprised of three 
segments : 

1. Loader (cards 000001-000035). Located at the 
beginning of the object deck, this loader is used 
for loading both the mainline program and any 
subprograms that are called. 

2. Communication card (card 000036). 

This card contains: 

Columns 1-2 Value of /. 
Columns 3-4 Value of k. 
Columns 5-9 Address of first instruction in 

the object program. 
Columns 10-14 Next available address in the 

Common area. 

It is loaded into locations 00401 - 00414. 

3. Object program (card 000037 to end of deck). 
Fortran ii employs five different types of cards 
in the mainline object deck. The cards are identi- 
fied by the character punched in column 62, as 
follows: 

Instructions. One to five relocatable in- 
structions are contained in columns 1-60 
of an instruction card. The P or Q fields 
of the instructions are modified for relo- 
cation depending upon whether a flag is 
present over the O (for P) or Oi (for Q) 
position of the operation code. The load- 



ing addresses are punched in columns 65- 
69 and 70-74. 
1 Constant. Only the loading addresses are 
modified. 

Relative addresses. One to twelve relo- 
catable 5-digit addresses are contained 
in columns 1-60 of this card. As in a con- 
stant card, the loading addresses of this 
card are also modified. 

1 Nonrelocatable constants. This card con- 
tains constants which are not relocatable; 
hence the loading address are not modified. 

4= Subprogram calling card. The name in 
numeric representation of the subprogram 
being called is right-justified in columns 
1-12. The address where the starting ad- 
dress of the subprogram (after relocation) 
is to be placed is contained in columns 
13-17. 

The loading addresses in each card are as follows. 

Columns 65-69 leftmost address where instructions 
or constants will be loaded. 

Columns 70-74 rightmost address plus one, where 
instructions or constants will be 
loaded. 

A card containing a 1 in column 63 indicates to the 
loader the end of the mainline program or subprogram. 

Subprograms 

Subprograms are compiled in the same manner as 
mainline programs, except they do not have their 
own loader. Therefore they can be loaded only when 
called for by a mainline program or another subpro- 
gram. 

Makeup. A subprogram is made up of a header card 
and a number of program cards. The header card 
contains: 
Columns 1-12 Subprogram name, right-justified, in 

numeric representation. 
Columns 21-22 Value of / (floating point mantissa 

length). 
Columns 23-24 Value of k (fixed point word 

length). 
Column 63 Record mark (identifies header 

card). 
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The subprogram cards have the same format as de- 
scribed for mainline program cards 37 and up. 

Library Subroutines 

If the subroutine deck was processed at compilation 
time, then the subroutine loader, any relocatable sub- 
routines used by the object program, and the arith- 
metic and input/output subroutines are already a part 
of the object deck. If not, they will have to be loaded 
after the mainline program and the subprograms are 
loaded (see loading library subroutines). 

Makeup. The subroutine deck is composed of cards 
containing the following information. 

For users without the Automatic Floating Point 
Operations feature: 



Card Numbers 




Storage Locations 


(columns 75-80) 


Routine 


Required 


009970-009991 


Loader 


None 


010001-010017 


LOGF 


848 


020001-020025 


EXPF 


1132 


030001-030019 


COSF-SINF 


882 


050001-050026 


ATANF 


1256 


060001-060011 


SQRTF 


536 


070001-070004 


ABSF 


82 


510001-510228 


Arithmetic and 

Input/Output 

subroutines 


11000 


510229-510255 


"Modifier cards 


None 


510256 


Trailer card 


None 



For users with the Automatic Floating Point Opera- 
tions feature: 







Storage Locations 


Card Numbers 


Routine 


Required 


009970-009991 


Loader 


None 


010001-010016 


LOGF 


824 


020001-020024 


EXPF 


1108 


030001-030018 


COSF-SINF 


846 


050001-050026 


ATANF 


1232 


060001-060011 


SQRTF 


536 


070001-070003 


ABSF 


58 


510001-510212 


Arithmetic and 

Input/Output 

subroutines 


11000 


510213-510240 


•Modifier cards 


None 


510241 


Trailer card 


None 



Execution of the Object Program 

Loading the Mainline Program 

To load the mainline program, 

1. Remove the first card of the object deck. ( This is 
the page heading card. ) 

2. Place the mainline object deck into the card 
reader. 

"The modifier cards alter the subroutines to accommodate the 
word length being used in the object program. 



3. Set the Overflow switch to program. 

4. Set the Check switches to stop. 

5. Press the Reset key. 

6. Press the Load key on the card reader. 

Loading Subprograms 

Subprograms are normally loaded directly back of the 
mainline program. The first card of the subprogram 
object deck is the page heading card which must be 
removed before the subprogram is loaded. If subpro- 
grams are called by the mainline program and have 
not yet been loaded, a printout will remind the oper- 
ator to load subprograms (see error messages for 
Loading Object Programs). 

Note: If library subroutines were included in the ob- 
ject deck at compilation time, they must be separated 
from the mainline program before the subprograms 
are loaded. The procedure is: 

1. Search object deck for beginning of library sub- 
routines (card number 009970). 

2. Place subprograms between the mainline pro- 
gram and the subroutines. 

3. Place the deck into the reader hopper. 

4. Press Load key on the card reader. 

Loading Library Subroutines 

After all subprograms are loaded, the typewriter types 
out the message, 

load subroutines 

and the 1620 halts. If subroutines were processed at 
compilation time, the operator need only press the 
Start key to continue. However, if the subroutines 
were not previously processed, he must: 

1. Place the subroutine deck into the card reader. 

2. Press the Load key on the reader, or press the 
Reader Start and Start keys. 

When the subroutines have been processed, the 
message, 



ENTER DATA 



is typed, and the machine halts. 

After the data is entered, the operator presses the 
Start key to initiate execution of the object program. 

Entering Input Data from the Typewriter 

With each execution of an accept statement, the type- 
writer carriage returns, signaling the operator to type 
the input quantities corresponding to the variables 
in the accept statement list. Should the operator com- 
mit a typing error during console entry of data, he 
may recover by: 



I 



30 



1. Turning on Program Switch 4, 

2. Pressing the Release and Start keys, 

3. Turning off Program Switch 4, and 

4. Re-entering the complete record of data. 

This process may be repeated as often as necessary. 

Trace Feature 

Under program switch control, instructions are com- 
piled into the object program, enabling the operator to 
trace the flow of the program for checking purposes. 
Program Switch 4 controls the trace feature and oper- 
ates as follows : 



ON 



Switch 4 Compiled trace 
instructions are 
executed. 



OFF 

Trace instructions 
are not executed. 



The trace output provided contains the value of the 
left-hand side of each executed arithmetic statement, 
and the value of the expression calculated in an if 
statement (if trace instructions for if statements were 
compiled). Normal output resulting from punch, 
punch tape, print, and type statements is not in- 
hibited. The output format of the trace data, printed 
at the left margin, is the same as that carried in- 
ternally in the object program. 

Note that Program Switch 4 serves a dual control 
function during execution of the object program; 
(1) the provision of trace data (2) the correction of 
input data erroneously entered at the console key- 
board. Thus, when the machine is in the trace mode, 
the operator should turn off Switch 4 before typing 
input data. Following the last entry of the list, the 
operator should: 

1. Press the Release key. 

2. Press the sie key two or three times. 

3. Turn on Switch 4. 

4. Press the Start key. 

Care should also be exercised when using if ( Sense 
Switch 4) statements in a source program. 



Error Messages 

Loading Object Programs 

1. Except for the first six cards in the object pro- 
gram deck, the card sequence number punched 
in columns 75-80 is checked during loading. If 
a card is out of sequence, the message, 

CARD OUT OF SEQUENCE 

is typed on the console typewriter and the load- 
ing process is halted. 



To resume loading: 

a. Remove the last two cards from the reader 
stacker. 

b. Remove the deck from the reader hopper. 

c. Run out the two cards in the reader. 

d. Arrange the cards in proper sequence ( from 
a, b, c above). 

e. Place the deck back into the reader hopper. 

f. Press the Reader Start and Start keys. 

2. A table of 100 entries is provided for storing in- 
formation concerning the calling of subprograms. 
If more than 100 subprograms are called during 
the loading of the main object program, the mes- 
sage, 

SUBPROGRAM TABLE FULL 

is typed and loading is halted. The rest of the 
program cannot be loaded until two constants 
in the loading program are modified. After the 
constants are modified, the entire object program 
should be reloaded. 

The constants are located in columns 56-58 of 
Card 000007 and columns 8-10 of Card 000015. 
Roth have the value 101 for 100 table entries and 
can be changed to any number not greater than 
400. This limit is imposed for the following reasons : 

a. The table area starts at location 04001. 

b. Each table entry occupies 20 digits of stor- 
age. 

c. The main object program, including data and 
constants, starts at location 11000. 

3. Each subprogram has a header card as the first 
card, and a trailer card as the last card of the 
object deck. If another header card appears be- 
tween these two cards, the message: 

EXTRA HEADER CARD 

is printed and loading is halted. 

To resume loading, follow the same procedures 
as described for card out of sequence with one 
exception; i.e., discard the second card (record 
mark, 0-2-8, in column 63) that was removed 
from the stacker. As in the previous procedure 
it is essential that the remaining partial deck be 
loaded in sequence. 

4. The second card in a subprogram object deck 
must be an instruction card punched with a 
(zero) in column 62. The message, 

INSTRUCTION CARD MISSING 

appears only when this card has the correct se- 
quence number (000002) but does not have a 
zero punched in column 62. 
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Reloading is possible by following the same 
procedures outlined for card out of sequence 
and ascertaining that the card with the number 
000002 is an instruction card. 

5. The header card of a subprogram deck contains 
the lengths of floating point mantissa (/) and 
fixed point integers (k) in columns 21-22 and 
23-24, respectively. If the subprogram is called, 
these lengths are compared with the correspond- 
ing / and k values in the main program. Both 
values must agree or the message, 

SUBPROGRAM HAS DIFFERENT F OR K 

is printed and loading stops. 

To resume loading, follow the procedures be- 
low: 

a. Remove the last two cards from the reader 
stacker. 

b. Remove the deck from the reader hopper. 

c. Press the Nonprocess Runout key. 

d. Remove the deck that did not compare and 
replace it with the correct deck. 

e. Place the entire deck back into the reader 
hopper. 

f. Press the Reader Start and Start keys. 

6. After the object program is completely loaded, 
the names of subprograms called but not loaded 
are typed, followed by the message, 

READ SUBPROGRAMS NAMED ABOVE 

Since it is possible for one subprogram to call 
another, the deck of subprograms may be so 
arranged that several loading passes are neces- 
sary to place all called subprograms into core stor- 
age. For example, if the main program calls for 
subprogram A and this subprogram in turn calls 
for subprogram B, and B precedes A in the deck, 
then subprogram B is bypassed the first time. 
After loading subprogram A, subprogram B must 
be reloaded. The programmer can eliminate 
these multiple passes by properly arranging the 
deck of subprograms. 

When the message is printed, the operator 
must: 

a. Press the Nonprocess Runout key. 

b. Place the required subprograms(s) into the 
hopper. 

c. Press the Reader Start and Start keys. 

7. If a non-blank card is read after the trailer card 
of an object program (mainline or subprogram), 
the message, 

EXTRA CARD AT END OF DECK 

is typed and the 1620 halts. 



Remove the extra card from the reader stacker 
and run out the cards in the reader. Examine the 
deck to assure its correctness, and replace it into 
the hopper. Resume loading by pressing the 
Reader Start and Start keys. 

Loading Library Subroutines 

1. During loading, the sequence numbers of all re- 
locatable subroutines are checked; the subrou- 
tine loader is not sequence-checked. If a card is 
out of sequence, the message, 

CARD OUT OF SEQUENCE 

is typed and the loading process is halted. 
To resume loading: 

a. Remove the last two cards from the reader 
stacker. 

b. Remove the deck from the reader hopper. 

c. Run out the two cards in the reader. 

d. Arrange the cards (from a, b, c above) in 
proper sequence. 

e. Place the deck back into the reader hopper. 

f. Press the Reader Start and Start keys. 
The cards for the arithmetic and input/output 

subroutines are not checked for proper sequence 
because of storage limitations. 

2. The message, 

SUBROUTINE HEADER MISSING 

appears if the twenty-third card in the library 
subroutine deck is not a header card. 
To resume loading: 

a. Remove the last two cards from the reader 
stacker. 

b. Remove the deck from the reader hopper. 

c. Run out the two cards in the reader. 

d. Arrange the cards (from a, b, c above) in 
proper sequence and ascertain that the first 
card is a header card (identified by a 0-2-8 
punch in column 63). 

e. Place the deck back into the reader hopper. 

f. Press the Reader Start and Start keys. 

3. When all the selected relocatable subroutines in 
the deck have been loaded, a check is made to 
determine if any required subroutines have not 
been loaded. If one or more of these subroutines 
is missing, the message, 

LIBRARY SUBROUTINE MISSING 

is printed, and the loading process is halted. 

The operator can determine which subrou- 
tine^) is missing by comparing his program re- 
quirements with the subroutine deck. An easier 
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method is to print out storage locations 00415 - 
00464 (fifty digits) by inserting: 

38 00415 00100 
48 00000 00000 
41 

at the console typewriter. If the nth digit(s) is 
a 1 (one), then the subroutine( s ) numbered n 
was called but not loaded. 

Loading can be resumed by following these 
procedures: 

a. Remove the last two cards from the reader 
stacker. 

b. Remove the deck from the reader hopper. 

c. Run out the two cards in the reader. 

d. Arrange these cards in proper sequence. 
The first card should have 510001 punched 
in columns 75-80. 

e. Place the required subroutines ahead of the 
deck. 

f. Place the deck back into the reader hopper. 

g. Press the Reader Start and Start keys. 

4. If the capacity of core storage is exceeded during 
the loading of subprograms and library subrou- 
tines, the overlapping data will not be loaded 
into storage. At the end of reading the library 
subroutines, the message, 

OVERLAP XXXXX DIGITS 

is typed and the 1620 halts before loading the 
rest of the subroutine deck. ( If the subprograms 
caused the overlap, the message is not typed until 
this time. ) In the error message, xxxxx is the total 
number of digits overlapped. 

Since it is not possible to execute the object 
program without the required subprograms and 
subroutines, the operator should discontinue 
loading and then revise his source program. 

Subroutine Error Checks 

A number of error checks have been built into the 
library subroutines. The basic philosophy in the dis- 
position of an error is to print an error message, set the 
result of the operation to the most reasonable value 
under the circumstances, and continue with the pro- 
gram. Subroutine error codes, the nature of the error, 
and the value of the result in fac (symbolic name of 
the accumulator in which arithmetic operations are 
performed) are listed in Table 4. 

In the Table, the terms "overflow" and "underflow" 
appear several times. Overflow means that the ex- 
ponent of the result has exceeded 99; underflow means 
that the exponent of the result is less than —99. The 



result of overflow is affixed with the proper sign (not 
indicated in Table 4). 



Table 4. Subroutine Error Codes 



Error Code 


Error 


Result ir 


FAC 


El 


Overflow in FAD or FSB 


99 


.999 


E2 


Underflow in FAD or FSB 


00 


.099 


E3 


Overflow in FMP 


99 


.999 


E4 


Underflow in FMP 


00 


.099 


E5 


Overflow in FDV or FDVR 


99 


.999 


E6 


Underflow in FDV or FDVR 


00 


.099 


E7 


Zero division in FDV or FDVR 


99 


.999 


E8 
E9 


Zero division in FXD or FXDR 
Overflow in FIX 


999.... 




99 


Fl 


Loss of all significance in 








FSIN or FCOS 


000.... 


.099 


F2 


Zero argument in FLN 


99 


.999 


F3 


Negative argument in FLN 


In /x/ 




F4 


Overflow in FEXP 


99 


.999 


F5 


Underflow in FEXP 


00 


.099 


F6 


Negative argument in FAXB 
Negative argument in FSQR 


/a/ , 

SQR/x/ 


F7 


Input data in incorrect form 
or outside the allowable range 






F8 


Output data outside the allowable 
range 






F9 


Input or output record longer than 
80 or 87 characters (whichever 
is applicable to the I/O medium 
being used) 






Gl 


Zero to minus power in FIXI 


999.... 




G2 


Fixed point number to negative 
power in FIXI 






G3 


Overflow in FIXI 


999 




G4 


Floating point zero to negative 
power in FAXI 


99 


.999 


G5 


Overflow in FAXI 


99 


.999 


G6 


Underflow in FAXI 


00 


.099 


G7 


Zero to negative power in FAXB 


99,, ,. 


,999 



The error printout is in the form: 
ER xx 

where xx is the error code in the table. 

If Error F7 occurs during the execution of the in- 
structions compiled for an input statement, the field 
which is incorrect is replaced by zeros, and processing 
continues. 

The exponent portion of an E-type input data field 
must be right-justified in that field and may contain 
only one sign. Deviations from this rule are not 
checked. For exponents greater than 99 (absolute 
value), the value is reduced modulo 100. 
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If Error F8 occurs, the incorrect field is set to blanks 
in the output record, and an additional record is 
printed. This record contains the incorrect field in the 
form: 

E (f +6).f for floating point numbers, and 
I ( k + 1 ) for fixed point numbers. 

This additional record is also produced on the output 
device (card punch, tape punch, or typewriter) called 
for by the source statement. 

If Error F9 occurs, the incorrect field is ignored and 
processing continues. However, it is possible that part 
of the subroutines or object program may have been 
destroyed by the abnormal record. In this case, the 
program may inexplicably halt at some point during 
its execution. 



Adding Library Subroutines 

Any library subroutines, with the exception of loga- 
rithm and exponential (needed for evaluating A**B), 
may be deleted or replaced with new subroutines. 
Up to 50 subroutines can be accommodated by the 
Fortran ii System. 

Addition of a library subroutine involves the modi- 
fication of the compiler deck ( Pass I ) and the library 
subroutine deck. 

Modifying the Compiler Deck 

At the end of the Pass I deck, a card (numbered 
03000) is used to indicate the total number of relo- 
catable subroutines and their names. This card has 
the total number of library subroutines punched in 
columns 1 and 2; for example, 07 for the seven sub- 
routines provided with the system. If no subroutines 
were included with the system, then 00 would be 
punched in columns 1 and 2. 

This card also contains the names and synonyms of 
the subroutines. The names may not be composed of 
more than six characters. The synonyms are separated 
by commas with no intervening spaces. The set of 
synonyms for each subroutine is terminated by a 
period. 

Adding a subroutine involves revision of the total 
number of subroutines punched in card 03000, and an 
addition to the name card(s). Assuming a hyperbolic 
cosine subroutine is to be included in the library sub- 
routines as the eighth relocatable subroutine, the oper- 
ator should: 

1. Change the number in columns 1-2 of card 03000 
to 08. 

2. Punch the symbol name(s), for example cosh, 
coshf in the columns following the last subroutine 



name (absf). If the set of names and synonyms is 

too long to fit in the remaining columns of card 

03000, start the entire set in a new card with a 

sequence number of 03001 in columns 76-80. 

Since the subroutine names are identified internally 

by their sequential position in the name card(s), the 

names and cards must be in strict sequence. Care must 

also be exercised when deleting subroutines so a gap 

will not be created. 

Modifying the Library Subroutine Deck 

The new subroutine must be assembled by means of 
the 1620 sps compiler. The resulting condensed object 
deck, with the first two and the last seven cards re- 
moved, must be preceded by a header card punched 
with the following information: 

Columns 1-5 ZZZZZ Total number of stor- 

age locations re- 
quired by the sub- 
routine. This number 
must be even. 

Columns 11-12 YY The alternate sub- 

routine number, if 
any. 

Columns 16-20 WWWWW The alternate entry 

point, if any. 
Column 63 =(= A record mark (0-2- 

Columns 75-80 XX0001 Card sequence num- 

ber, where XX is the 
subroutine number. 

The object deck, minus the header card, must be 
renumbered starting with XX0002, where XX is the 
subroutine number. This number, XX, must agree with 
the number punched in columns 79-80 of the name 
card in the Pass I deck. 

If a subroutine contains two entry points, for ex- 
ample, cosine at address 10,000 and sine at address 
10,036, its deck must be numbered with XX as the 
subroutine whose entrance is at 10,000. The other 
subroutine number, YY, becomes the alternate and is 
punched in columns 11-12. If the cosine subroutine is 
assigned the number 03 and the sine subroutine, num- 
ber 04, the deck is numbered starting at 03001 with 04 
punched in columns 11-12 to indicate the alternate 
number. Columns 16-20 contain the alternate entrance 
WWWWW, which in this case is 00036 ( 10036 minus 
10000). 

The complete subroutine deck should be checked 
to see that all cards are sequentially numbered in col- 
umns 75-80. The packet of cards can now be inserted 
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between any two subroutines in the library subroutine 
deck. Note that each subroutine is identified by the 
number in columns 75-76, and that all arithmetic and 
input/output subroutines are numbered 51. 

Subroutine Versions 

Two sets of library subroutines are available to the 
user; one contains subroutines for use on a 1620 System 
without the floating point feature; the other contains 
subroutines that may be used only on a 1620 System 
with the floating point feature installed. The first set 
mentioned may be used on a system that has the float- 
ing point feature installed; however, in that instance it 
is advantageous to use the second set of subroutines 
since execution time of the object program is reduced. 
When the second set is used, the Pass II compiler 
deck must be modified by replacing cards numbered 
04288 through 04292 with the cards numbered 04288- 
04292 which are included with Deck 4. 

Modification of Origin 

It is possible to change the origin of the object program 
when either of the two subroutine sets is used. More 
positions of core storage can be saved if the Automatic 
Floating Point Operations feature is installed; however, 
the following origin modifications apply to a 1620 Sys- 
tem with or without the Automatic Floating Point Op- 
erations feature. 

Note: fho indicates that a flag is required in the high- 
order position of the location specified, origin is the 
lowest-numbered core storage location that the pro- 
grammer desires to use. 

STANDARD ORIGIN MODIFIED ORIGIN 



Deck 4 

( Library subroutines ) 

(For use with the Automatic Floating Point Operations feature) 

Card No. 009973, 



Deckl 






( Compiler, Pass I ) 






Card No. 00269, 






Columns 54-58 


11000 (FHO) 


ORIGIN+0(FHO) 


Deck 2 






( Compiler, Pass II ) 






Card No. 04474, 






Columns 40-44 


HOOO(FHO) 


ORIGIN+0(FHO) 


Deck 3 






( Library subroutines ) 






Card No. 09973, 






Columns 44-48 


11000 (FHO) 


ORIGIN+0(FHO) 


Card No. 510250, 






Columns 8-12 


11001 


ORIGIN+1 


Columns 20-24 


11005 


ORIGIN+5 


Columns 32-36 


11006 


ORIGIN+6 


Columns 44-48 


11010 


ORIGIN+10 



Columns 44-48 


HOOO(FHO) 


ORIGIN+0(FHO) 


Card No. 510238, 






Columns 8-12 


11001 


ORIGIN+1 


Columns 20-24 


11005 


ORIGIN+5 


Columns 32-36 


11006 


ORIGIN+6 


Columns 44-48 


11010 


ORIGIN+10 



Summary 

To summarize, the procedures for adding a relocatable 
subroutine are as follows: 

1. Increase the number in columns 1-2 of card 03000 
of the Pass I deck to reflect a new total number 
of relocatable subroutines. 

2. Add the subroutine name(s) at the end of the 
last card. If a new card is required, it must be 
numbered consecutively. 

3. Write the subroutine in 1620 sps language, ob- 
serving the following rules: 

a. The origin of the subroutine is at address 
10,000 (dorg 10000). 

b. The subroutine entrance is location 10,000. 

c. The address of the argument relative to 10,000 
is made available at 9995-9999. 

d. The P and Q addresses in an instruction rela- 
tive to 10,000 must be identified by flagging 
the O and O, digits, respectively, in the in- 
struction. 

e. The result must be left in fac (or a constant 
placed in fac if no result has been calculated ) . 

4. Assemble and condense the subroutine. Remove 
the first two and last seven cards. Renumber the 
deck, starting at XX0002, where XX is the sub- 
routine number. 

5. Prepare a subroutine header card. Remember that 
the number of storage locations specified on the 
card must include an extra 5 locations for use by 
the next subroutine at object time. 

6. Place the header card ahead of the subroutine 
cards and check their sequence numbers. 

7. Place the packet of cards between any two sub- 
routines in the library subroutine deck. 
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IBM 1620-1443 FORTRAN II Programming System 



J 20 Print Position Systems 

The 1620-1443 Fortran ii Programming System is a 
printer-oriented version of the basic 1620 Fortran ii 
System described in the preceding pages of this publi- 
cation. It makes use of the ibm 1443 Printer as an inte- 
gral unit during the processing of Fortran ii source 
programs. The advantage of the printer-oriented sys- 
tem is that it provides a convenient and relatively fast 
means of listing source and object program information 
and the symbol table. Only the differences between 
the standard system and the printer-oriented system 
are described here. Specifications and operating pro- 
cedures pertaining to the standard system are valid for 
the printer-oriented system if no specific mention is 
made of them in this section. 



when used with a print statement. This function con- 
sists of designating a desired line-space* or carriage- 
skip operation. A format statement, to be used in 
conjunction with a print statement, will usually begin 
with 1H followed by a control character which speci- 
fies the desired operation. The control characters and 
their effects are: 

blank — Single space before printing 
— Double space before printing 
1-9 — Immediate skip to channels 1-9 

The control character itself does not become part of 
the printed output. 

EXAMPLE 



■ 



Language 

The language specifications of the 1620-1443 Fortran 
ii System are identical to the specifications of the 1620 
Fortran ii System with the exception of the print and 
format statements. The specifications of these state- 
ments have been modified for use with the 1443 Printer 
as described in the following paragraphs. 

PRINT Statement 

When used with the 1620-1443 Fortran ii System, the 
print statement is used to print data on the 1443 
Printer. The format of the print statement is as fol- 
lows: 

PRINTn, List 

where n is the statement number of a format state- 
ment, and List is a list of the quantities to be printed. 
The type statement is still used to type messages on 
the console typewriter. 

FORMAT Statement 

The format statement, when used with a print state- 
ment, allows for a maximum of 120 characters for each 
printed line. (When used with a type statement, the 
format statement is still limited to 87 characters.) 

Carriage Control 

In addition to the normal functions of a format state- 
ment, there is another function that it must perform 



PRINT 2 A, B, J 
2 FORMAT ( 1H0, F8.2, F8.2, 18 ) 

This specification will provide for a double line-space 
between the line being printed and the previous 
printed line. 

Note: The first carriage control specification is appli- 
cable only to the first line printed. If more than one line 
is called for, the carriage control specification must pre- 
cede the normal specification for each line of print. For 
example: 

FORMAT ( 1H0, F8.2, F8.2/1H0, F8.2, F8.2) 

will provide for double line spacing before each 
printed line. 



Compiler 

Listings and Symbol Table Output 
Listings and symbol table output appear on the 
printer instead of the console typewriter. The console 
switch settings used to obtain these outputs remain the 
same as those used in the standard system. The formats 
of the outputs have been changed to take advantage of 
the characteristics of the printer. 
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Error Messages 

All error messages appear on the printer. Instructions 
to the operator still appear on the console typewriter. 
Subroutine error code F9 has been modified to in- 
clude any printer records that exceed 120 characters. 

Trace Routine 

If the trace routine is used, its output will appear on 
the printer. 

Compiler Decks 

Pass / 

Card Numbers (columns 76-80) 

00001-00009 Loader 
00010-00410 Pass I compiler program 
02000-02005 Multiply-Add tables 
03000 Library subroutine count and names 

of library subroutines 



Pass /( 

Card Numbers 
04001-04009 
04010-04491 
05000-05005 



For users with the Automatic Floating Point Opera- 
tions feature: 



Loader 

Pass II compiler program 

Multiply-Add tables 



Subroutine Deck 

The subroutine deck is composed of cards containing 
the following information. 

For users without the Automatic Floating Point Opera- 
tions feature: 



Card Numbers 
(columns 75-80) 



009970- 
010001- 
020001- 
030001- 
050001- 
060001- 
070001- 
510001- 



009991 
010017 
020025 
030019 
050026 
060011 
070004 
510223 



510224-510250 
510251 



Routine 

Loader 
LOGF 
EXPF 

COSF-SINF 
ATANF 
SQRTF 
ABSF 

Arithmetic and 
Input/Output 
subroutines 
"Modifier cards 
Trailer card 



Storage Locations 
Required 

None 

848 

1132 

882 

1256 

536 

82 

11000 



None 
None 



Card Numbers 

009970-009991 
010001-010016 
020001-020024 
030001-030018 
050001-050026 
060001-060011 
070001-070003 
510001-510209 



510210-510237 

510238 



Routine 

Loader 
LOGF 
EXPF 

COSF-SINF 
ATANF 
SQRTF 
ABSF 

Arithmetic and 
Input/Output 
subroutines 
•Modifier cards 
Trailer card 



Storage Locations 
Required 

None 

824 

1108 

846 

1232 

536 

58 

11000 



None 
None 



Modification of Origin 

When it is desired to change the origins of object pro- 
grams, the following modifications must be made: 



STANDARD ORIGIN MODIFIED ORIGIN 



Deck I 

( Compiler, Pass I ) 
Card No. 00266, 

Columns 12-16 
Deck 2 

( Compiler, Pass II ) 
Card No. 04472, 

Columns 35-39 
Deck 3 

( Library subroutines ) 
Card No. 09973, 

Columns 44-48 
Card No. 510250, 

Columns 8-12 

Columns 20-24 

Columns 32-36 

Columns 44-48 
Deck 4 

( Library subroutines ) 

(For use with the Automatic Floating Point 

Card No. 009973, 



llOOO(FHO) ORIGIN-t-O(FHO) 



HOOO(FHO) ORIGIN-fO(FHO) 



1 1000( FHO ) ORIGIN+0(FHO) 



11001 
11005 
11006 
11010 



ORIGIN+1 
ORIGIN+5 
ORIGIN+6 
ORIGIN+10 



Columns 44-48 
Card No. 510235, 
Columns 8-12 
Columns 20-24 
Columns 32-36 
Columns 44-48 



HOOO(FHO) 

11001 
11005 
11006 
11010 



Operations feature) 

ORIGIN+0(FHO) 

ORIGIN+1 
ORIGIN+5 
ORIGIN+6 
ORIGIN+10 



•The modifier cards alter the subroutines to accommodate the 
word length being used in the object program. 



Note: fho indicates that a flag is required in the high-order posi- 
tion of the location specified, origin is the lowest-numbered core 
storage location that the programmer desires to use. 
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144 Print Position Systems 

The following differences should be noted when using 
the 1620-1443 Fortran ii System with 144 positions. 

FORMAT Statement 

The format statement, when used with a print state- 
ment, allows for a maximum of 144 characters per line. 

Error Messages 

All error messages appear on the printer. Instructions 
to the operator still appear on the console typewriter. 
Subroutine error code F9 has been modified to in- 
clude any printer records that exceed 144 characters. 

Trace Routine 

If the trace routine is used, its output will appear on 
the printer in E-type or I-type format. 



Compiler Decks 

Pass / 

Card Numbers (columns 76-80) 

00001-00009 Loader 
00010-00416 Pass I compiler program 
02000-02005 Multiply- Add tables 
03000 Library subroutine count and names 

of library subroutines 



Pass /( 

Card Numbers 
04001-04009 
04010-04493 
05000-05005 



Loader 

Pass II compiler program 

Multjply-Add tables 



Subroutine Deck 

The subroutine deck is composed of cards containing 
the following information. 

For users without the Automatic Floating Point Opera- 
tions feature: 



Card Numbers 
(columns 73-80) 



009970- 
010001- 
020001- 
030001- 
050001- 
060001- 
070001- 
510001 



009991 
010017 
020025 
030019 
050026 
060011 
070004 
-510236 



510237-510266 
510267 



Routine 

Loader 
LOGF 
EXPF 

COSF-SINF 
ATANF 
SQRTF 
ABSF 

Arithmetic and 
Input/Output 
subroutines 
"Modifier cards 
Trailer card 



Storage Locations 
Required 

None 

848 

1132 

882 

1256 

536 

82 

11200 



None 
None 



For users with the Automatic Floating Point Opera- 
tions feature: 







Storage Locations 


Card Numbers 


Routine 


Required 


009970-009991 


Loader 


None 


010001-010016 


LOGF 


824 


020001-020024 


EXPF 


1108 


030001-030018 


COSF-SINF 


846 


050001-050026 


ATANF 


1232 


060001-060011 


SQRTF 


536 


070001-070003 


ABSF 


58 


510001-510223 


Arithmetic and 

Input/Output 

subroutines 


11200 


510224-510254 


"Modifier cards 


None 


510255 


Trailer card 


None 



I 



Modification of Origin 

When it is desired to change the origins of object pro- 
grams, the following modifications must be made: 



STANDARD ORIGIN MODIFIED ORIGIN 



Deckl 

( Compiler, Pass I ) 
Card No. 00269, 
Columns 44-48 

Deck 2 

( Compiler, Pass II ) 
Card No. 04472, 
Columns 39-43 

Deck 3 

( Library subroutines ) 
Card No. 09973, 

Columns 44-48 
Card No. 510266, 
Columns 8-12 
Columns 20-24 
Columns 32-36 
Columns 44-48 

Deck 4 



11200(FHO) ORIGIN +0(FHO) 



11200(FHO) ORIGIN+0(FHO) 



11200(FHO) ORIGIN+0(FHO) 



11201 
11205 
11206 
11210 



ORIGIN +1 
ORIGIN+5 
ORIGIN +6 
ORIGIN +10 



( Library subroutines ) 

(For use with the Automatic Floating Point Operations feature) 

Card No. 009973, 



Columns 44-48 


11200(FHO) 


ORIGIN-f-O(FHO) 


Card No. 510252, 






Columns 8-12 


11201 


ORIGIN 4- 1 


Columns 20-24 


11205 


ORIGIN+5 


Columns 32-36 


11206 


ORIGIN +6 


Columns 44-48 


11210 


ORIGIN +10 



"The modifier cards alter the subroutines to accommodate the 
word length being used in the object program. 



Note: fho indicates that a flag is required in the high-order posi- 
tion of the location specified, origin is the lowest-numbered core 
storage location that the programmer desires to use. 
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IBM 1620 FORTRAN II for Automatic Floating Point 



General Description 

The 1620 Fortran ii System for Automatic Floating 
Point is a modification of the standard 1620 Fortran ii 
System described earlier in this publication. The ma- 
chine configuration for the floating point-oriented sys- 
tem is as follows: 

ibm/1620 Data Processing System with 40,000 posi- 
tions of core storage. 
ibm/1622 Card-Read Punch. 
Automatic Floating Point Operations feature 
Indirect Addressing feature 

The significant advantage of the floating point-ori- 
ented system is the increased speed of object program 
execution. This is made possible by the use of in-line 
arithmetic instructions instead of subroutines for such 
operations as Floating Add, Floating Subtract, etc. 

Since the two systems are very similar, only the dif- 
ferences will be described in this section. All specifica- 
tions and operating procedures for the standard system 
are valid for the floating point-oriented system if no 
specific mention is made of them here. 



Language 

The language of the two systems is the same except 
for the addition of two statements in the floating point- 
oriented system. 

IF (OVERFLOW) Statement 

This statement causes the program to transfer to a 
particular statement depending on whether the Arith- 
metic Overflow indicator is on or off. 

General Form 

IF (OVERFLOW) n„ n 2 

where n, and n 2 are statement numbers. The paren- 
theses enclosing the word overflow, and the comma 
separating the statement numbers are required punc- 
tuation. 

The program transfers to the statement numbered 
n, if the Arithmetic Overflow indicator is on, or to the 
statement numbered n 2 if it is off. If the indicator is 
on, it is turned off by the interrogation. 



Example 



IF (OVERFLOW) 5,21 



means, "If the Arithmetic Overflow indicator is on, 
transfer to statement 5; otherwise, transfer to state- 
ment 21." 

IF (EXPONENT CHECK) Statement 

This statement causes the program to transfer to a 
particular statement depending on whether the Ex- 
ponent Check indicator is on or off. 

General Form 

IF (EXPONENT CHECK) n„ n, 

where ni and n 2 are statement numbers. The paren- 
theses enclosing the words exponent check, and the 
comma separating the statement numbers are required 
punctuation. The space between the words exponent 
and check is optional. 

The program transfers to the statement numbered 
n, if the Exponent Check indicator is on, or to the 
statement numbered n, if it is off. If the indicator is on, 
it is turned off by the interrogation. 

Example 

IF (EXPONENT CHECK) 7, 15 

means, "If the Exponent Check indicator is on, trans- 
fer to statement 7; otherwise, transfer to statement 15." 



Arithmetic and Input/Output Subroutines 

There is only one subroutine set supplied with this 
system. The fixed point word precision may vary from 
4 to 10 decimal digits. Floating points precision can- 
not be changed and is set at 8 decimal digits. The con- 
trol card to vary the fixed point precision is identical 
to that previously described, except that columns 2 and 
3 (which specify floating precision) are ignored. The 
error message associated with this control card will be 

ERROR, K OUTSIDE RANGE 

Since the Fortran compiler generates in-line arith- 
metic instructions for such operations as floating add 
and floating subtract, the arithmetic and input/output 
subroutine group is reduced to the following: 
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Floating-Point Arithmetic 
Reverse Subtract 
Reverse Divide 
Set fac to zero 

Fixed-Point Arithmetic 
Reverse Subtract 
Multiply 
Divide 
Reverse Divide 

Common Subroutines 
Reverse sign of fac 
Fix a Floating-Point Number 
Float a Fixed-Point Number 

Exponentiation 
Fixed-Point J* *I 
Floating-Point A**( ±1) 
Floating-Point A* *(±B) 

Input/output 
Read Card 
Read Tape 
Read Typewriter 
Write Card 
Write Tape 
Write Typewriter 



Makeup of Compiler Decks 

Pass I 

Card Numbers ( Col. 76-80 ) 
Loader 
Compiler 



Makeup of Subroutine Deck 



00001-00009 
00010-00416 
02000-02005 
03000 



Arithmetic Tables 

Library Subroutine count and 

names of library subroutines. 



Passll 

Card Numbers ( Col. 76-80 ) 

04001-04009 Loader 

04010-04491 Compiler 

05000-05005 Arithmetic Tables 







Storage 






Locations 


Card Numbers 


Routine 


Required 


009970-009991 


Loader 


None 


010001-010019 


LOGF 


800 


020001-020016 


EXPF 


724 


030001-030017 


COSF-SINF 


820 


050001-050016 


ATANF 


686 


060001-060012 


SQRTF 


512 


070001-070003 


ABSF 


58 


510001-510210 


Arithmetic and 

Input/Output 

subroutines 


10000 


510211-510221 


Modifier cards 


None 


510222 


Trailer card 


None 



Modification of Origin 

To change the origin of an object program, the follow- 
ing modifications must be made. 



Deck 1 (Processor, 

Pass I ) 

Card No. 00272, 

Columns 16-20 

Deck 2 (Processor, 

Pass II) 

Card No. 04472, 
Columns 6-10 
Deck 3 ( Library Sub- 
routines ) 

Card No. 009973, 
Columns 44-48 

Card No. 510221, 
Columns 8-12 
Columns 20-24 
Columns 32-36 
Columns 44-48 



STANDARD ORIGIN MODIFIED ORIGIN 



10000 ( FHO ) ORIGIN+0 ( FHO ) 



10000 (FHO) ORIGIN+0 (FHO) 



10000 (FHO) ORIGIN+0 (FHO) 

10001 ORIGIN+1 

10005 ORICIN+5 

10006 ORIGIN +6 
10010 ORIGIN+10 



Note: fho indicates that a flag is required in the high- 
order position of the location specified, origin is the 
lowest-numbered core storage location that is to be 
used. 



Error Messages 

Since most floating instructions appear in-line rather 
than in a subroutine, object time error messages El 
through E7 have been eliminated. The error conditions 
previously indicated by these messages can be ascer- 
tained by the use of the if ( overflow ) and if ( expo- 
nent check ) statements. Fixed point overflow can also 
be detected by this method. 
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Appendix 



Supplementary Information 

Restart Procedures 

If the operator wants to restart during compilation, 
he may use the following procedures: 

Pass I. Insert and execute a branch to the symbolic ad- 
dress restr. After the machine halts, press Start and 
continue as in Step 7 of operating procedures 
(pass i). 

Pass II. Insert and execute a branch to the symbolic 
address pass ii, and continue as in Step 6 of oper- 
ating procedures (pass n). 

Object time. Insert and execute a branch to the in- 
direct address 00409 (49 00409). 

Note: The absolute addresses (actual machine ad- 
dresses) can be found by referring to the symbolic 
addresses given in the program listing. 

Diagnostic Mode 

Pass I of the compiler may be used as a diagnostic 
pass without punching intermediate output. After the 
message, 

enter source program, press start 

is typed, the 1620 halts. The operator may then insert 
the digit 1 (one) into location ersw and manually 
branch to location diag. 

The digit at location ersw is reset to zero in the 
initialization process. Therefore, batch processing for 
diagnostic purposes is not possible without manually 
resetting the digit at ersw to 1. 

A subprogram run in the diagnostic mode causes a 
header card to be punched. This card can be ignored. 

Storage "Map" of Pass I 

After Pass I of the compiler has been loaded and be- 
fore processing begins, core storage contains the fol- 
lowing information: 

1. Multiply-Add tables are in locations 00100-00399. 

2. Communication area used by Pass II in locations 
00401-00483. 

3. In the standard system ( 40,000-digit storage), 
350 10-digit fields from 36500 through 39999 are 
initialized for the symbol table. The first table 
entries contain the addresses of the numeric rep- 



resentation (two numeric digits for each alpha 
character) of the relocatable subroutine names. 
The actual alphameric representation of each 
name is stored in a packed name table beginning 
at location 34401. 
4. The remaining symbol table entries are initialized 
to 00400=j=000#Y 

If the source machine has 60,000 positions of core 
storage, the symbol table will be initialized with 800 
10-digit fields from 52000 through 59999. In this case 
the name table will begin at location 40001. 

The symbol table is filled up from both ends with 
constants and statement numbers at the higher ad- 
dresses, and library subroutine names followed by vari- 
ables, etc., at the lower addresses . 

Storage "Map" of Pass II 

After Pass II of the compiler has been loaded, core 
storage contains the following information: 

1. Multiply-Add tables in locations 00100-00399. 

2. Communication area from Pass I in locations 
00401-00483. 

3. The symbol table begins at either 36500 or 52000 
depending on whether the program is being com- 
piled on a 40,000 or 60,000 position machine. Dur- 
ing batch compilation, the symbol table might not 
be in memory, but might be read in later at one of 
the above addresses. 

At the end of Pass II, the conditions in memory are 
the same as above, with the possible exception of 
additional entries in the symbol table. 

If it is necessary for Pass II to generate temporary 
storage in the decomposition of an arithmetic expres- 
sion, the entries for the temporary areas are placed 
in the symbol table, as follows: 

XXXXXM0I0O 

where xxxxx is the "object time" address of the tem- 
porary storage area. 

M is either (a) (zero) for floating-point 

mode, or 
(b) 2 for fixed-point mode. 

I is either (a) 1 if the area is in use, or 

(b) if the area is not in use. 
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M and I may vary during compilation since the same 
temporary areas can be used many times within one 
program. Temporary storage areas which are gener- 
ated during Pass II are placed in line with the object 
instructions and a branch around the temporary area 
is supplied by the compiler. 

Description of Symbol Table in Storage during Pass I 

After the message, 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

is typed, and before the Start key is pressed, the symbol 
table entries are in the following forms: 

1. Simple variables 

AAAAAMDRRR 



D is either 



where AAAAA is 



the low-order address of the 
numeric representation (two 
numeric digits for each alpha 
character ) of the variable name 
in the name table. 



M is either 



D is either 



RRR is either 



(a) 
(b) 



(d) 

(a) 

(b) 

(a) 



2 for a fixed point variable, 
for a floating point var- 
iable, 

2 for an equivalenced fixed 
point variable, or 
for an equivalenced float- 
ing point variable. 

for a common variable, 
or 

for a noncommon vari- 
able. 

00=j=, if the variable was 
equivalenced and this var- 
iable was the base of the 
equivalence; or if the var- 
iable was not equivalenced 
at all, or 

a number between 001 and 
349 ( representing the sym- 
bol table entry to which the 
variable was equivalenced) 
if the variable was equival- 
enced. 



2. Dimensioned variables (two entries) 

AAAAAMDRRR 
AAAAAXXXXX 

where A, M, and R fields are the same as for simple 
variables. 



(b) 



XXXXX is either 



( a ) 1 for a 1-dimensional array 

( b ) 2 for a 2-dimensional array 

( c ) 3 for a 3-dimensional array. 
D is flagged if the array is in 
Common. 

(a) The total number of ele- 
ments in the array if the 
array is not in Common, or 

( b ) the address of the core lo- 
cations preceding the first 
element in Common, or 

( c ) an offset reference number 
if the array was equiva- 
lenced. 



3. Floating point constants 

AAAAA00CC0 

where AAAAA is the low-order address of the 
constant's mantissa in the name 
table. 



CC is 



the characteristic of the con- 
stant. 



4. Fixed point constants 

AAAAA20CC2 

where AAAAA is the low-order address of the con- 
stant in the name table. 



CCis 



the length of the constant with- 
out counting leading zeros. 



5. Statement numbers 

00404==j=NNNN 

where NNNN is the statement number. During com- 
pilation, statement numbers have the form of: 

00401JNNNN 

where J is either ( a ) 0, if the statement is a 

format statement. 

( b ) =)=, if the statement ends a 
do loop. 

(c) 1, if neither. 



J is 



flagged if the statement num- 
ber is not defined. 



6. Arithmetic statement function names 

AAAAAM^GG^ 

where AAAAA is the same as for a simple var- 
iable. 
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M is either 
GGis 



(a) 2 for fixed point mode, or 

(b) for floating point mode. 

the number of arguments of the 
function. 



7. Subroutine and function names 

AAAAAM4=00^ 

where all entries are as described for arithmetic 
statement function names. 

8. Subprogram name dummy parameters in a Sub- 
routine or Function statement (two entries) 

AAAAAMD#=0^ 
AAAAAMOOO^ 

where the A, M, and D fields are the same as de- 
scribed for a dimensioned variable. These variables 
(parameters) are placed in the symbol table twice 
because they may be dimensioned later. 

A 50-digit record in locations 00415 through 00464 
indicates any relocatable library subroutines that are 
to be included in the object program. Starting at 
00415, the digit 1 (one) in the record indicates that 
the corresponding subroutines are required by the 
object program. The order of the "indicators" is the 
same as the order of the names of the subroutines 
read in by the Pass I compiler. 

9. Library function names 

AAAAACCCCC 

where AAAAA is the same as for a simple variable, 
and CCCCC is the 'core storage address used for 
linkage to the library subroutine. 

Description of Symbol Table after Pass I 

After the message, 

END OF PASS I 

is typed, the symbol table is in the following form: 
1. Simple variables and constants 
XXXXMDRR^ 

where XXXXX is the "object time" address of the 
variable or constant 



M is either 
DRRis 



(a) for floating point mode, or 

( b ) 2 for a fixed point mode. 



the same as it was prior to the 
storage assignment. 

The record mark is used during storage allocation 
to indicate that the address has been assigned, 



2. Dimensioned variables (two entries) 

XXXXXMDAAA 
ABBBBCCCC0 

where XXXXX is an adjusted "object time" ad- 
dress used to compute subscript- 
ing. 

M is either (a) for a floating point vari- 

able or 
( b ) 2 for a fixed point variable. 

D is either ( a ) 1 for a 1-dimensional array, 

(b) 2 f or a 2-dimensional array, 
or 

( c ) 3 for a 3-dimensional array. 

AAAA is the first dimension of the array. 

BBBB is the second dimension of the 

array. 
CCCC is the third dimension of the array. 

If the variable is only a 1-dimensional or a 2- 
dimensional array, BBBB and CCCC or CCCC alone 
will be zeros. 

3. Subroutine, function names, and dummy param- 
eters. _ _ 

XXXXXMDRRR 

where the X, M, and D fields are the same as those 
described for simple variables and constants; the R 
field is the same as it was prior to the storage assign- 
ment. 

Description of the Symbol Table Listing 

If Program Switch 1 is turned on after the message, 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

is typed, then the "object time" storage addresses of the 
symbol table will be listed in the following order and 
form. ( No flags will appear if the printer is used to list 
the symbol table. ) 

1. Floating point constants Fixed point constants 
MMMMMMMME + CC XXXXX FFFFF XXXXX 



where XXXXX is 

MMMMMMMM is 
CCis 

FFFFF is 



the low-order 
address of the 
constant. 

a floating point 
mantissa. 

a floating point 
exponent. 

a fixed point 
constant. 
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2. Simple variables Dimensioned variables 
NAME XXXXX NAME XXXXX YYYYY 



where XXXXX 



XXXXX 



YYYYY 



for simple variables is the ad- 
dress at object time where the 
value for NAME will be stored. 

for dimensioned variables is the 
address at object time of the first 
element in the array, NAME. 

is the address of the last element 
in the array, NAME. 



If name* is typed, this indicates a dummy pa- 
rameter within an arithmetic statement function. 

3. Called subprograms 

NAME XXXXX 



where XXXXX is 



the location where the start- 
ing address of the subprogram 
will be stored. 



Symbol Table Listing for Subprograms 

When a subprogram is being compiled, the dummy 
arguments are listed after statement numbers, as fol- 
lows: 

NAME XXXXX 

where XXXXX is the location where the actual address 
of the variable in the mainline program, corresponding 
to the argument, name, will be stored upon entering the 
subprogram. The same form is also used for simple 
and dimensioned variables. 

The addresses listed for a subprogram are not the 
actual addresses at object time. Since subprograms are 
relocated upon loading, the listed addresses have to 
be adjusted relative to the starting location of the sub- 
program. 

Statement Number Listing 

During Pass II, if Program Switch 1 is on, statement 
numbers are listed in the form, 



where XXXXX 



SSSS XXXXX 

is the address of the first instruc- 
tion generated for statement 
number SSSS. 
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